No need to go to those lengths:

$s = '0123456789' x 100000;;

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

print length $m;;
960000
[download]

But for any given application there's almost certainly a better way of tackling the problem.