$me='computers rpgs userfriendly.org new westminster canada geek bc'; $me=~s/\s+//g;@e=split(//,$me); $x.=$e[$_] for qw(11 7 6 11 0 49 44 47 49 6 57 5 6 6 7 25 21 6 5);$x=~s,c,@,;$y=uc($e[11]);$y.=$e[$_] for qw(7 6 11 31 30 53 8 5 6 7);$y=~s/w/ W/;print"$y\n$x\n";
Kickstart
In reply to Minor obfuscation for my sig by Kickstart
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |