DB<1> $s = "\|"

  DB<2> $t = qr/$s/

  DB<3> p $t
(?^:|)
  DB<4> $u = qr/\|/

  DB<5> p $u
(?^:\|)