Select Code to Download

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

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