use HTML::Parser;
$x = "ř";
HTML::Entities::_decode_entities($x, {});
print "$x\n";