Help for this page
Select Code to Download
Select
or
download this
print (split "\t", $line)[0], "\n" ;
Select
or
download this
print ( (split "\t", $line)[0] ), "\n" ;