Inhalt von zwei Dateien vergleichen

[Fritzek]

Funktionier das:

#!/usr/bin/perl -w

use strict;
my @suchen = qw(Datei Text die);
while( my $zeile =  <DATA>)
{
    foreach my $suche (@suchen)
    {
         if ( index($zeile,$suche) > -1 )
         {
            print "$suche($.)\n";
         }
    }
}

DATA
Ein kleiner Text anstatt einer Datei
zum probieren der suche nach mehreren
Begriffen in einer Datei die ganz viele Zeilen hat
Ich bin gespannt ob die suche auch funktioniert

>   
> Struppi.  
  
Nop. alle zeilen aus dat2 liefern -1 zurück. ich hab aber ganz bewusst in dat1 begriffe aus dat2 reingeschrieben. die müssen also definitiv vorhanden sein. wie geht index eigentlich mit gross-klein-schreibung um? (in meinem fall nicht relevant, da ich die begriffe so geschrieben habe wie in dat2 zu finden).