my $str1_pat = quotemeta($str1);
$str1 =~ s/$str1_pat/$str2/;

  - or -

$str1 =~ s/\Q$str1\E/$str2/;   # Same thing.