Select Code to Download

my $c;
for ( my $i = 0; $i < length($string); $i++ ) { 
    $c = substr( $string, $i, 1);
}

$string is 3000 bytes
Benchmark: running for, split, each for at least 10 CPU seconds...
...
     
+16%

use Benchmark;
my $string = "1234567890" x 5000 ;
...
             
              }});