[Moscow.pm] Угадать кодировку (перебором)

[Харпалёв Иван]

Есть строка, без флага utf8.
Utf8-консоль отображает строку зюками.
decode("Detect", $data); не угадывает.

Как правильно перевести в utf8?

Где взять массив всех возможных ENCODING, чтобы переводить из них в utf8 и
смотреть, угадали или нет?
в pod Encode::Supported
<https://metacpan.org/pod/distribution/Encode/lib/Encode/Supported.pod> как
получить массив не вижу.

Вроде насущна проблема,
как такое делать?

Спасибо!
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20141208/33a618e8/attachment.html>