Select Code to Download

line one line info

...
line three

more lines etc

line one line info line two info line three more lines etc

use strict;

...
       my ($line) = (split //n/);
       print $line;
close IN or warn "$!";