Leggere un insieme di file da una cartella

[WormCT]

Salve volevo chiedervi un aiuto, devo fare uno script che legge tutti i file contenuti in una cartella e mi ricerca un pattern all'interno dei file.

[MARTEDI]

$pattern="pattern";
$percorso_cartella="percorso cartella";
@dir=<$percorso_cartella/*.*>;
foreach $file(@dir)
{
open (FL,"$file");
while(<FL>)
{
if ($_ =~ /$pattern/)
{
push (@file_ok,$file);
last;
}
}
close (FL);
}

print "elenco dei file che contengono $pattern:\n";
foreach $file(@file_ok)
{print "- $file\n"}