my $var = "my dog spot";
my $expr = qr|(my dog) spot|;
my $sub = qr|$1 spooge|;
$var =~ s/$expr/$sub/;

print $var;
#prints: (?-xism: spooge)