or without the need for the intermediate variables:

<$in>;

while (<$in>) {
    chomp;
    print $out join ("\t", (split /\t/)[1,3]), "\n";
}
[download]