DB<3> $x = qr/.+2/

  DB<4> x "$x"
0  '(?-xism:.+2)'
  DB<5> $y = bless \$x, 'Foo'

  DB<6> x $y
0  Foo=SCALAR(0x140263050)
  DB<7> x "$$y"              
0  '(?-xism:.+2)'