use strict; use warnings; use utf8; my $cmp_str = '…'; my $instr = ''; my $max_count = 0; $instr = ; if( $instr ne '' ) { while ($instr =~ m/($cmp_str+)/g ) { my $str = $1; my $count = 0; $count++ while($str =~ m/$cmp_str/g); $max_count = $count if($max_count < $count); } } print "$max_count";