Select Code to Download

    open my $fh => "linecount.txt" or die "Open linecount.txt: $!";
    my ($file, $linecount);
...
        ($file, $linecount) = split /\s*~\s*/;        
        last if $file && $file eq $thefileIamLookingfor;
    }