フォルダ内のファイルを全て開き文字列置換

こんばんは。Perl超初心者です（プログラミングの初心者でもあります）。 フォルダ内にあるすべてのファイルに対して、正規表現を使った文字列置換をしたいのですが、うまくいきません。アドヴァイスをいただけないでしょうか。 具体的には、あるファルダの中に100個程のファイルがあって、その中の改行が3回連続している部分を、「改行+[SAMPLE]+改行」に置換をしたいと表います。 Windows XP Professional SP3 / ActivePerl 5.10 の環境で、以下のように記述したのですが、「Missing $ on loop variable at insert.pl line 5.」とエラーになってしまいます。どこで、間違ったのでしょうか（というか、まるでダメなスクリプトかもしれませんが…）。 use strict; use warnings; my @filename =

[librarius_I]

No.4の答えが大変参考になる。