I LOVE this idea. I used to have a CDW Magic 8 ball(actually i think it was a 3, cause it was red). It had all sorts of great answers like "Reboot", and "User Error".

my $name = 'Ben Kittrell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';
[download]