$ perl -E'
   sub f { say $1; "b"=~/(b)/; say $1; }
   "a"=~/(a)/;
   say $1; f(); say $1;
'
a
a
b
a