bugger, I was just going to post this:

#!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;
[download]

"Argument is futile - you will be ignorralated!"