in reply to (Need a new motto?) Re: Perl's wartsin thread Perl's warts
I Like the first one, piagaycs is easier to say than obcbcip
my $name = 'Ben Kittrell'; $name=~s/^(.+)\s(.).+$/\L$1$2/g; my $nick = 'tha' . $name . 'sta';