複数行に渡る文字列の置換

質問

こんにちは、Perl初心者です（プログラミング全般の初心者です）。

カレントフォルダ内のテキストファイルに対して、文字列置換をするスクリプトを書こうとしています。具体的には、以下のようにストリングIDの直下に改行のみの場合（ストリングがない）は、[BLANK]という文字列を挿入したいと思っています。

TEXT_STRING_ID_001＜改行＞
＜改行＞
＜改行＞
TEXT_STRING_ID_002＜改行＞

入門書やこのサイトの皆さまのお力を借りて、なんとか以下のようなリストを書きエラーなく置換処理ができるところまでは確認できました。

しかし、この方法だと結局1行ずつ処理していることになるので、「s/\n{3}/\n[en]\n/gm」のような置換ができません（mオプションをつけてもダメなようです）。

この問題を解決する良い方法はないものでしょうか。
（もしかすると、処理の仕方を根本から変えないといけないのでしょうか）

以下、現状のリスト：
use strict;
use warnings;

my $dirname = '.';
opendir(DIR, $dirname) or die "$dirname: $!";
while (my $dir = readdir(DIR)) {
next unless (-f $dir);
next unless ($dir =~ /\.txt$/);
print $dir, "\n";
open(FILE, $dir) or die "$dir: $!";
my @file = <FILE>;
close(FILE);
foreach my $line (@file) {
$line =~ s/\n{3}/\n[BLANK]\n/gm;
}
open(NEWFILE, "> $dir") or die "$dir: $!";
print NEWFILE @file;
close(NEWFILE);
}
closedir(DIR);

回答No.2

foofoo0 · ベストアンサー

my @file = <FILE>;
の代わりにread関数を使用してみてはどうでしょうか？

お礼

ご回答ありがとうございます。

そうですね。参考書などで read 関数の使い方を調べてみたいと思います。

回答No.1

Tacosan

「ストリングID」というのが何かよくわかりませんが,
http://oshiete1.goo.ne.jp/qa5525005.html
ではご不満な点があるのでしょうか?

補足

学習中ですので、処理が出来れば良いというのではなく、いろんな方のやり方を見たいのです（TMTOWTDI がPerl のモットーとのこと）。