or download this
Test values are: $VAR1 = [
{
'Col1' => '\x{00c8}\x{00e8}\x{008a}\x{009a}\x{008e}\x{009e
+}'
...
"\x{009a}" does not map to cp1250 at C:\batch\Pisarna\Clouseau\Testira
+nje.pl line 31.
"\x{008e}" does not map to cp1250 at C:\batch\Pisarna\Clouseau\Testira
+nje.pl line 31.
"\x{009e}" does not map to cp1250 at C:\batch\Pisarna\Clouseau\Testira
+nje.pl line 31.