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