DB<1> $_ ="123 annn jkjkkj bcdefgh 2015 ";

  DB<2> push @words, grep { /[^aeiouy]{4}/i } split;

  DB<3> x \@words;
0  ARRAY(0x600500b18)
   0  'jkjkkj'
   1  2015
  DB<4>