C:\test>p1
$s = '0123456789' x 20e6;;
print length $s;;
200000000

say time; 
printf "found %d zeros\n", $s =~ tr[0][]; 
say time;;
1377952426.42676
found 20000000 zeros
1377952426.78727