#0884(matu氏)の書き込みを引用します:
＞はじめまして、CGIと言いますか、perl文法に近い質問かもしれませんが、
＞よろしくお願いします。
＞本で良く登場する
＞open(IN,"+<$file")
＞に関して、以下[ソース1]のように、オープンしたファイルの中の有る文字列を
＞発見したら置換するようなプログラムを作ったのですが、実行するとなぜか元の
＞ファイルが消えてしまいます。なぜなのか教えてください。
＞--------------------(ソース1)------------------------
＞#! /usr/local/bin/perl
＞$file = "sample.txt";
＞open(IN,"+<$file");
＞while(<in>){
＞   s/bbb/xxx/;
＞   print IN $_ ;
＞}
＞close(IN);
＞-------------------------------------------------------
＞-------------------[sample.txt]------------------------
＞aaa
＞bbb
＞ccc
＞ddd
＞-------------------------------------------------------

これがそのまんまなら一ヶ所でしょう。
＞while(<in>){
inは大文字で。