Select Code to Download

  DB<106> %h = (x => 0, '$1' => 1);
 => ("x", 0, "\$1", 1)
...

  DB<108> $s =~ s/(x)/'$1'/r;             # no prevention
 => "a'x'b"