DB<135> $a='#x'
 => "#x"

  DB<136> "x#x#x" =~ s/$a$a/-/r
 => "x-"

  DB<137> "x#x#x" =~ s/$a$a/-/xr  #oops
 => "-x#x#x"

##</code><code>##

  DB<138> $a=qr/#x/
 => qr/#x/

  DB<139> "x#x#x" =~ s/$a$a/-/r
 => "x-"

  DB<140> "x#x#x" =~ s/$a$a/-/xr
 => "x-"

##</code><code>##

  DB<144> $a='\#x'           # or ='[#]x' 
 => "\\#x"

  DB<145> "x#x#x" =~ s/$a$a/-/r
 => "x-"

  DB<146> "x#x#x" =~ s/$a$a/-/xr
 => "x-"