perl -wce 'print ( (split "\t", $line)[0] ), "\n" ;';

__output__
print (...) interpreted as function at -e line 1.
Useless use of a constant in void context at -e line 1.
-e syntax OK