Re: pick a word contaning reg-ex

[Wiggins]

in reply to pick a word contaning reg-ex

The problem says "Words containing an exclamation mark". This is not the same as "ending with".

  /(\w*!\w*)/

This is flawed because it matches "!".
I don't know how to specify at least 1 sub-part must have a length > 0.

[Lotus1]

#!/perl
use warnings;
use strict;

while(<DATA>){
    print map {"$_\n"} grep{/!/ and /[^!]/} split;
}

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

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

oops!eedaisy
! ! !! HI!!IH