Select Code to Download

use warnings;
use strict;
...
__END__

("line1\nline2\n", "line4\n", "line7\nline8\n", "line9\n")

open my $fh, '<', 'test.txt' or die $!;
while (my $line = <$fh>) {
...
    # etc.
}
close $fh;