while (<INFILE>) {
  $line = $_;
  chomp($line);
  next if ($line =~ /^\s*$/);
  push @file, split(/[\t\s]+/,$line);
}