Help for this page

Select Code to Download


  1. or download this
    $ perl -MData::Dump -Mre=debug -le " dd( $_=qq{a\n\nb} ); s{^$}{boop}m
+; dd( $_ ); "
Compiling REx "^$"
...
"a\nboop\nb"

Freeing REx: "^$"
  2. or download this
    $ perl -MData::Dump -Mre=debug -le " dd( $_=qq{a\n\nb} ); s{^$\n}{boop
+}m; dd( $_ ); "
"a\n\nb"
...
"a\n\nb"

Freeing REx: "^%nn"
  3. or download this
    $ perl -MData::Dump -Mre=debug -le " dd( $_=qq{a\n\nb} ); s{^$\n?}{boo
+p}ms; dd( $_ ); "
"a\n\nb"

...
"a\nboopb"

Freeing REx: "^%nn?"