use strict; use warnings; use utf8; use Encode qw/encode decode decode_utf8 encode_utf8 from_to/; use Encode::Guess qw/cp932 euc-jp utf8 7bit-jis/; my $cmp_str = '…'; my $instr = ''; my $max_count = 0; $instr = decode('utf8', ); 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";