print STDOUT (split "\t", $line)[0], "\n" ;