my $number_of_fields = 10;
my $hold = "";
while(<FILE>) {
  chomp;
  my $line = $hold.$_;
  my @line = split("\t", $line);
  if (@line < $number_of_fields) {
    $hold = $line;
    next;
  }
  $hold = "";
  do stuff
}