$ perl -E 'my ($x, $y, $z) = qw{a+b+c + __}; say $x =~ s/\Q$y/$z/gr'
a__b__c