>Basically, it's shorthand for the current syntax:

>    $message = <<"    EOF" =~ s/^\s*\| ?//g;
>        | Attention criminal slacker, we have yet
>        | to receive payment for our legal services.
>        |
>        |     Love and kisses
>        |
>    EOF

>    print $message;

>But any inconsistencies or errors in my examples should not detract from the
>general idea.

But you don't need that when you can and possibly should just write this:

     print <<"    EOF" =~ /^\s*\| ?(.*\n)/g;
         | Attention criminal slacker, we have yet
         | to receive payment for our legal services.
         |
         |     Love and kisses
         |
    EOF

{--tom

Reply via email to