Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
   qq{Your input:\n},
   do { local $" = qq{\n  -->}; qq{  -->@input}; },
   qq{\n};
  2. or download this
    knoppix@Knoppix:~/perl/Monks$ ./spw796843
Add input (CTRL-D to finish) : This is
...
  -->including a
  -->blank line
knoppix@Knoppix:~/perl/Monks$
  3. or download this
    use strict;
use warnings;
...
   qq{Your input:\n},
   do { local $" = qq{\n  -->}; qq{  -->@input}; },
   qq{\n};