[Linux-Biella] Perl e espressioni regolari in array

[Claudio M.]

Ho un problema con un piccolo codice perl

Ho un array con una serie di espressioni regolari e ho un file che devi 
elaborare
Come faccio ad esaminare riga per riga il file in input e avere in output 
tutte le righe che soddisfano anche una sola delle espressioni regolari?

Es.
@trova = ();
push @trova, "\\spippo\\s";
push @trova, "\\spluto\\s";

while (<WALTDISNEY>) {
	chomp;
	my $riga = $_;
	foreach $personaggio (@trova) {
		if ($riga =~ /$personaggio/) {
			print $_;
		}
	}
}

questo ovviamente non funziona in quanto mi da un errore di sintassi nella 
riga dell'if

Avete idee?

Bye

-- 
Contatto skype: cmaffio
Linux User: #151147
-------------- parte successiva --------------
Un allegato non testuale è stato rimosso....
Nome:        non disponibile
Tipo:        application/pgp-signature
Dimensione:  197 bytes
Descrizione: This is a digitally signed message part.
Url:         http://ml.bilug.linux.it/pipermail/linux/attachments/20100423/e04d0098/attachment.bin