#!/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]