package MyUnicode;

sub InLetters {
  return << 'END';
0041    005a
0061    007a
END
}

sub InVowels {
  return << 'END';
0041
0045
0049
004f
0055
0061
0065
0069
006f
0075
END
}

sub InConsonants {
  return << 'END';
+MyUnicode::InLetters
-MyUnicode::InVowels
END
}

package main;

my $string = "Chicken Stromboli";
while ($string =~ /(\p{MyUnicode::InConsonants}+)/g) {
  print "consonant cluster: '$1'\n";
}

__END__
consonant cluster: 'Ch'
consonant cluster: 'ck'
consonant cluster: 'n'
consonant cluster: 'Str'
consonant cluster: 'mb'
consonant cluster: 'l'