$_ = 'Wow!!!!! simply wow!!!';
@lengths = map { length } /(!{2,})/g;

##</code><code>##

$_ = 'Wow!!!!! simply wow!!!';
push(@lengths, length($1)) while (/(!{2,})/g);