>>544
おお、ネ申光臨！

バッチリです。そんな裏技があったとは知りませんでした。的確なご回答に感謝します。
ただ、そこまではウマクいったんですけど、処理を追加したらまた問題が発生しました。
１２行目の rename で die してしまうんです。
（rename をコメントアウトすれば動くんですが、データのバックアップができなくなるんで・・・ちと不安）

use utf8;
use Encode qw(encode);
use open ":utf8";

open FILE, "<", encode("cp932","月間売上表.txt") or die;
@data = <FILE>;
close FILE;

foreach (@data) { $_ = "(済)" . $_ } # テキトーにデータ加工処理

if (-f "月間売上表.bak") { unlink "月間売上表.bak" or die }
rename "月間売上表.txt", "月間売上表.bak" or die; # <-- ここで死ぬ

open FILE, ">", encode("cp932","月間売上表.txt") or die;
print FILE @data;
close FILE;