$line =~s/\Q$current_path/$new_path\E/ig;