DB<1> $line = "foo bar\n";

  DB<2> print $line if $line !~ /^\s*$/;
foo bar

  DB<3> $line = "     \t   \r  \n";

  DB<4> print $line if $line !~ /^\s*$/;

  DB<5>