...
# Datei oeffnen
#
open(FH,"<",$file) or die "Kann $file nicht oeffnen: $!";
my $i=1;
while(<>) {
        $count = $.;
        while(/(^Wort1(:?[0-9]*)).*(Vorkommen.*)/) {
                print "$count: $1, $3\n";
                last;
        }
        $i++;
}
close(FH);