c:\@Work\Perl\monks>perl -wMstrict -le
"my @ra = qw(foo fee efie fiee efiee foe fum);
 print qq{before: (@ra)};
 ;;
 my $rx_fee_fie_foe = qr{ \A f [eio] e \z }xms;
 ;;
 @ra = grep !m{ $rx_fee_fie_foe }xms, @ra;
 print qq{after:  (@ra)};
"
before: (foo fee efie fiee efiee foe fum)
after:  (foo efie fiee efiee fum)