$str1 = $str2 if $str2 =~ /$str1/;

##</code><code>##

$str1 = $str2 if $str2 =~ /\Q$str1\E/;