in reply to Re: A Simple
in thread A Simple "Tail" Question

This can easily be done with CGI.pm.

print $q->header(-nph=>1);

-thabenksta

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

[download]

In Section Seekers of Perl Wisdom