Help for this page

Select Code to Download


  1. or download this
      DB<1> $line = "foo bar\n";

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

  DB<5>