$string =~ s/\Q$str2Brepl\E/$strRepl/mi;
print "$string";