while (<FILE>) {
	my @line = split /\t/;

	# do_something...
}