#!perl -w
use strict;

my $var = "my dog spot";
my $expr = q|(my dog) spot|;
my $sub = q|$1.' spooge'|;
$var =~ s/$expr/$sub/ee;

print $var;