use Encode qw(encode);
$text = encode("cp1250", $text);