$line =~ /\S/ or die "Blank line detected at $.\n";