Hmm, that first chunk of code won't compile. Here is an alternative solution:

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";
[download]