my @letters=split(//, $myform->{'name'});
while($letters[0]!~/^[aeiouy]/i){
  last if scalar(@letters)==0;
  shift @letters;
}
$myform->{'left'}=join("", @letters);

## with:

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