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