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

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