Select Code to Download

...
    my $len = pos($string) - $newlines[-1];
    push @newlines, [ pos($string), $len ];
...

my $avg_len = 0;
$avg_len = length($string) / 0+@newlines;

my $estimated_line = int( $position / $avg_len );