Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $vowel = qr{ [AEIOUaeiou] }xms;
...
offset of first vowel: 6
offset of last vowel: 14
offset of first vowel: none

c:\@Work\Perl\monks>perl -wMstrict -le
"my $vowel = qr{ [AEIOUaeiou] }xms;
...
offset of first non-vowel: 2
offset of last non-vowel: 12
offset of first non-vowel: 3

c:\@Work\Perl\monks>perl -wMstrict -le
"my $non_vowel = qr{ [^AEIOUaeiou] }xms;
...
offset of first non-vowel: 2
offset of last non-vowel: 9
offset of first non-vowel: none