open TEXT, "text1.txt";
@text = <TEXT>;
close TEXT;
#B, C, D, F, G, H, J, K, L, M, N, P, Q, R, S, T, V, W, X, Y, Z
$consonants = '[fhkprst]';
$vowels = '[aeuo]*';
$word = '\b(?:'.$vowels.$consonants.')+\b';
# $exp = '\b(?:[aeuo]*[fhkprst])+\b';

for $el(@text)
{
  @arr = $el =~ m/$word/ig;
  # print "@arr\n";
  for $el2 (@arr)
  {
    push @res, $el2;
  }
}
print "@res\n";