while ( (my $inputLine =<STDIN>) !~ /^\s*$/ )
{
   print $inputLine;
}

print "WOW null line (only spaces or nothing) - I've bailed!\n";