DB<1> $t = 'teach an old dog new tricks'

  DB<2> $t =~ s/(dog)/@{[ reverse($1) ]}/g

  DB<3> x $t
0  'teach an old dog new tricks'