in reply to Re^2: Tracking consecutive characters
in thread Tracking consecutive characters

And if you just want to know the maximum string of consecutive ! 

$max = ( sort {$b<=>$a} map{length} /(!{2,})/g )[0];

[download]

In Section Seekers of Perl Wisdom