Select Code to Download

$myform->{'name'}=~s/(\w)(\w+)/\u$1\L$2/;

## You can use perl's builtin functions to do the job:

$myform->{'name'}=ucfirst(lc($myform->{'name'});

my @letters=split(//, $myform->{'name'});
while($letters[0]!~/^[aeiouy]/i){
...

($myform->{'left'}=$myform->{'name'}) =~ s/$[^aeiouy]+//;