$s=<>; $a=0; while($s=~/(yukicoder)+/g){ $l=length($&)/9; $a=$l if $a<$l; } print $a,$/;