You could use User Defined Character Properties (example).

Update:

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/;
[download]

Update 2: Code you can use to generate sets like the above:

use warnings;
use strict;
use Data::Dump;
use Set::IntSpan;

my @chars = grep {!/^[aeiouy]$/i} 'a'..'z','A'..'Z';
dd join '', map { no warnings 'redundant';
    sprintf $$_[0]==$$_[1] ? "%X\n" : "%X %X\n", @$_ }
        Set::IntSpan->new( map {ord} @chars )->spans;

__END__

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