in reply to Re: Kill Your Favorite Monk!
in thread Kill Your Favorite Monk!

http://thabenksta.perlmonk.org/killmonk.pl?action=play&nick=Node_Reaper

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

[download]

In Section Cool Uses for Perl