error in http://faq.perl.org/perlfaq4.html#How_do_I_find_the_fi

Hi.

I think in

     http://faq.perl.org/perlfaq4.html#How_do_I_find_the_fi

the code

     my $found;
     foreach my $element ( @array )
     {
         if( /Perl/ ) { $found = $element; last }
     }

should read either

     my $found;
     foreach my $element ( @array )
     {
         if( $element =~ /Perl/ ) { $found = $element; last }
     }

xor

     my $found;
     foreach ( @array )
     {
         if( /Perl/ ) { $found = $_; last }
     }


Greetings,
Peter Schweizer