use DynScalar;
my $from = "my (mom)";
my $to = dynamic { "our $1" };
$content =~ s/$from/$to/;