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

print $var
#error: "/\1 spooge/: reference to nonexistent group"