Perl 5.8.8 でも、UnicodeのBOMを自動的に削ってくれない。わりとよくやるので、BOM.pmというのをとりあえず作ってみた。 (その後、便利なモジュールを発見したので、アルゴリズムに興味がない人は「Perl 5.8.x 以降で BOM を操作するモジュール」を参照してください) package BOM; our @TABLE; BEGIN{ @TABLE = ( ['UTF-32BE', pack('C*', 0, 0,0xFE,0xFF)], ['UTF-32LE', pack('C*',0xFF,0xFE, 0, 0)], ['UTF-16BE', pack('C*',0xFE,0xFF )], ['UTF-16LE', pack('C*',0xFF,0xFE )], ['UTF-8' , pack('C*',0x