Select Code to Download

push @Results, $_ unless ($_ eq "\n")

push @Results, $_ unless /^\s*$/;

push @Results, $_ unless /^$/;

#!/usr/bin/perl

...
}

close $out2;