UTF-8で出力できるように書き直し。もちろんShift_JIS*1のままで書き出すことも可能なようにしてあります。けっこう手間取りました。前に書き上げた部分にも潜在的なバグが潜んでたりしたので、それも全部修正。 my $l = shift; for ($l) { s/>/>/g; s/&l…

最近これが欲しいです、結構本気で。大量にあっても困るので、数本ぐらい。