$s1 = "aaabbbccc" ;
$s2 = "bbb" ;
$s3 = "!§$%&/()=?" ;
$s1 =~ s/\Q$s2\E/$3/g ;