Perl скрипт для замены текста в файлах.

Помогите мне пожалуйста найти perl скрипт, который может на сервере в определенной директории с файлами заменить например одно слово на другое (во всех файлах).
foreach(<*.txt>)
{
my $file=$_;
open(F, "<$file") || die "can't open $file\n";
open(B, ">$file.bak") || die "can't open $file.bak\n";
while(my $line=<F>)
{
$line =~ s/STRING/NEW_STRING/;
print B $line;
}
close(B);
close(F);
rename "$file.bak", $file;
}
print "ok\n";

TopList Rambler's Top100 MAFIA's Top100