Ist das nicht etwas viel Code, um so ein geringfügiges Problem zu lösen?
Kannst du das auf max. 5 Zeilen Code reduzieren, damit man es nachstellen kann?
Nur soviel: Ich arbeite an einer solchen Stelle mit dem Modul Text::Iconv
Hole mir vorher mit qx(chcp) die aktuelle Codepage ab und erzeuge dann ein Handler mit Text::Iconv->new("CP$1",[ZIELZEICHENSATZ])
Dafür empfiehlt sich aber die Nutzung von eval{}, weil das Modul bei einer unbekannten Codepage zu einem Exitus des Scripts führt.
Vielleicht hilft das schon.