sub Chomped($) {
    my( $line )= @_;
    chomp( $line );
    return $line;
}

my @row= split /\t/, Chomped(<IN>);
[download]

                - tye