Nothing fantastic, but it's a lot of stuff to spew in 4 lines of code while still allowing some of the internal data to fit the theme.

$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";
[download]

Kickstart