DB<3> sub bla { "XXX"=~/(X*)/; print "inside $1" }

  DB<4> bla; print "outside $1"
inside XXXoutside
  DB<5>

##</code><code>##

  DB<5> "YYY"=~/(Y*)/; bla; print "old $1"
inside XXXold YYY
  DB<6>