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