Character re-map using regex

[zemplen]

I am working on an application that uses three character sets (Basic Latin, Latin 1 Supplement, Latin Extended and Cyrillic or ISO 8859-1, 2 and 5). Because the data that was given to me was entered using a non-standard fonts, characters have to be mapped to the Unicode standard. Although this re-map works for me I have found a case where it does not and I see no reason for the failure.

use strict;
use utf8;
${^WIDE_SYSTEM_CALLS} = 1;

no warnings 'utf8';

binmode(STDOUT, ":utf8");

my $text = chr(0x95);# usually a string read in from a file.
print ord ($text), "$text\n";
$text=~s/"\x{0095}"/"\x{017E}"/g;
print ord ($text), "$text\n";