Select Code to Download

use warnings;
use strict;
...
for (@bestRuns) {
    print "Run of " . substr ($str, $_, 1) . " from $_ for $bestRunLen
+\n";
}

Run of r from 766269 for 144