<$in>; ### Remove header line while (<$in>) { chomp; my ($name, $size) = (split /\t/)[1,3]; print $out "$name\t$size\n"; }