Select Code to Download

    $requested_start = ...;  # a value between 0 and 1
    $avg_line_len = ...;  # make a guess or read a small sample to est
+imate this
...

    $text =~ s/^.*\n//;  # trim initial and final
    $text =~ s/.*$//;    #   line fragments from $text