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