c:\test>TimeIt \perl\bin\perl.exe 
    -e"$a = 'a' x 800_000; substr($a, 0, 1, '') while length($a);"
 Kernel: 0.00000 User: 0.26563 Total: 0.26563