$, = ' ';               # set output field separator
$\ = "\n";              # set output record separator

$FS = "\t";
;

while (<>) {
    chomp;      # strip record separator
    ($Fld1) = split($FS, $_, -1);
    print $Fld1;
}