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