Select Code to Download

my @strings = split "\n", $string;
my @lookup;
...
    # byte offset of 1st char on this line
    $lookup[$i] = length($strings[$i-1]) + $lookup[$i-1];
}

#!/your/perl/here

...
        return;
    }
}