консультация на perl

Есть готовый скрипт на perl:
#!/usr/bin/perl

open(FF,'file_list.txt');@dir=<FF>;chomp(@dir);close(FF);

$cc=3;


foreach $vv (@dir){
open(FF,"$vv");@text=<FF>;close(FF);
open(FF,">$vv.php");
foreach $line (@text){
$line=~s/nn/"kkk".sprintf("%02d",++$cc)/eg;

print FF $line;
}
close(FF);
}

Он берет из папки файлы, ищет в них символы "kkk" и изменяет их на цифры по порядку, начиная с 3,4,5,6,7
В указанном скрипте есть ошибка