while () { chomp; my @data = split /\t/; # Do something with the line. }