$str1=$string;
$str1=~s/\Q$pre_str\E//;