#!/usr/bin/perl

use strict;
use warnings;

my $string = '123+456++78+90++';
my $zeichen = '+';

$string =~ s/(\Q$zeichen\E{1,2})/length $1 == 2 ? $1 : 'q'/eg;
print $string;