my $var = "my dog spot";
my $expr = qq|(my dog) spot|;
my $sub = qq|\1 spooge|;  #could be $1
$var =~ s/$expr/$sub/e;
#prints " spooge"