Select Code to Download

open (my ($fh2),$file2) or die $!;

...
       print "$row\n";
         next if $row =~ /^\s*$/;
        my (@fields) = split(/\|/, $row);