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

##</code><code>##

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