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