while (<INPUT>) {
  next if (1 .. /^\s*$/); 

  # yada yada
}