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*)/

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

It is always better to have seen your target for yourself, rather than depend upon someone else's description.

Replies are listed 'Best First'.
Re^2: pick a word contaning reg-ex
by Lotus1 (Vicar) on Dec 04, 2012 at 19:54 UTC 
    #!/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

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom