$contents =~ s/(\x{B5}|\x{BC})/u/g; [download]
In reply to Substituting unicode character leaves special block by Anonymous Monk