DB<6> sub repl { $_[0] =~ s/a/b/ }

  DB<7> p $a
aa
  DB<8> repl $a

  DB<9> p $a
ba