while(defined(my $line = <EXP>)) {
  next unless $line =~/\s/;
  ...

}