while (<EXP>) {
  next unless /\S/;
  ...
}