Select Code to Download

print($regexp)  Expect        Gives
--------------  ------------  ----------
...
\Q**LOL**       \*\*LOL\*\*   \Q**LOL**
\\Quit\\Exit    \\Quit\\Exit  \Quit\Exit
\Qfoo\\E        foo\\\\E      foo\\

my $in_quote = 0;

...
      }
   }
/eg;

$regexp =~ s/
   \G
...
/
   $1 . (defined($2) ? quotemeta($2) : '')
/xge;