Select Code to Download

 ;;
 print qq{offset of first vowel: }, $s =~ m{ (?= $vowel ) }xgms ? pos 
+$s : 'none';
 ;;
 print qq{offset of last vowel: }, $s =~ m{ .* (?= $vowel ) }xgms ? po
+s $s : 'none';