if ( /blah (foo) gibber/ )
      {
          my $thingy = $1;
          $var =~ s/\Q$thingy\E/bar/g;
      }