Re: pick a word contaning reg-ex

[2teez]

You mean something like this:

use warnings;
use strict;


while(<DATA>){
  chomp;
    print grep{/.+?\!/} split
}


__DATA__
 Mary had a little lamb! ,
 whose fleece! was white! as snow.

 And everywhere! that Mary went,
 the lamb was sure! to go.