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