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"