Select Code to Download

while (<>) {
    chomp;
...
        print(join("\t", @fields, $_), "\n");
    }
}

while (<>) {
    (my $common, $_) = /^((?:[^\t]*\t){3})(.*)/;
...
        print("$common\t$_\n");
    }
}