main::(-e:1):   0
  DB<1> $x='.'

  DB<2> p 'a' =~ /$x/
1
  DB<3> p 'a' =~ /\Q$x/

  DB<4> p '.' =~ /\Q$x/
1
  DB<5> p '.' =~ /$x/
1
  DB<6> p '.' =~ /\$x/

  DB<7> p '$x' =~ /\$x/
1
  DB<8>