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