hmmm, since my name starts with vowel I think my nickname should go like this:

my $name = 'Adam Russell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';
$nick=~s/tha(aeiou)/th\'$1/;