DB<47> $s="a"

  DB<48> p "a" =~ qr($s)
1
  DB<49> p "a" =~ '$s'        # same as q()

  DB<50>