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" }
sub IsVowel () { "41\n45\n49\n4F\n55\n59\n61\n65\n69\n6F\n75\n79\n" }

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