in reply to Kill Your Favorite Monk!
A notice for this would have been nice.
-- Randal L. Schwartz, Perl hacker
See above.
my $name = 'Ben Kittrell'; $name=~s/^(.+)\s(.).+$/\L$1$2/g; my $nick = 'tha' . $name . 'sta'; [download]