無理だっつーの
PerlはEUCじゃないとマルチバイトの処理できない