use strict;
use warnings;

my $content = "my mom";
my $from = qr|my (mom)|;
my $to = '"our ".$1';
$content =~ s/$from/$to/ee;
print "$content\n";