$s = '0123456789' x 100000;;

( $m ) = $s =~ m[((?:(?:0123456789){32000}){3})];;

print length $m;;
960000