#!/home/kaml1/usr3/sr/share/bin/sun4/perl

@data = <STDIN>;
foreach $line (@data) {
        @fields = split(/\t/, $line);
        foreach $field (@fields[1..$#fields-1]) {
                print $field . "\t";
        }
        print $fields[$#fields];
}