note Kenosis <p>And another option:</p> <c> 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. </c> <p>Output:</p> <c> lamb! fleece! white! everywhere! sure! </c> 1007086 1007086