And another option:

use Modern::Perl;

while (<DATA>) {
    say $1 while /(\S+!)/g;
}

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

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

Output:

lamb!
fleece!
white!
everywhere!
sure!
[download]