Help for this page

Select Code to Download

Select or download this

sub IsConsonant () { "42 44\n46 48\n4A 4E\n50 54\n56 58\n5A\n62 64\n"
    ."66 68\n6A 6E\n70 74\n76 78\n7A\n" }
...

print "CVC word found : $1\n"
    if /\b(\p{IsConsonant}\p{IsVowel}\p{IsConsonant})\b/;

Select or download this

use warnings;
use strict;
...
__END__

"42 44\n46 48\n4A 4E\n50 54\n56 58\n5A\n62 64\n66 68\n6A 6E\n70 74\n76
+ 78\n7A\n"