Hi,
maybe you can so :

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

changes: misunderstood question - added split