my $a = "SCALAR";
              my $str = "TT";
              my $regexs = qr/[^\Q$str\E]/i; 
              $a =~ s/$regexs/HOO /g; 
              print "[$a]\n";

__END__

[HOOHOOHOOHOOHOOHOO]