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

  DB<107> $s = 'axb'
 => "axb"

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