$t =~ s/(dog)/@{[ scalar(reverse($1)) ]}/g