martes, enero 20, 2004

Ahora estoy en:

http://valar.wordpress.com

#!/usr/bin/perl
@a=("o","n","w");
@b=(wbmbs.".".xpseqsftt.".".dpn."\n");
$c="iuuq://" . "@b";
$c=~y/b-y/a-z/;
@d=@a[0,2];
$print=cos(0);
print("@a[(@b cmp @b)+$print] @d\n");
print("$c");