#$c{$_}++ for m/([aeiou])/g;
 $c{$_}++ for /[aeiou]/g;