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