#!/usr/bin/perl
  
  open( DATEI, "<@ARGV[0]" ) or die $!;   # einlesen einer Datei über Parameter
  
  $resultat=0;
  
 while( $zeile = <DATEI> ) {              &nbsp
;  # alle Zeilen einlesen
      $zeilenAnzahl++;
      if( $zeile =~ m/@ARGV[1]?/i ) { 
      print "Zeile " . $zeilenAnzahl . ": " . "\n";
      $resultat++;
      }
  }
  
  print "\n";
  print "Das Wort \" " . @ARGV[1] . " \"" . " ist in der Datei " . "\" " . @ARGV[0] . " \" " . $resultat . " mal enthalten.";
  
  print "\n\n";
  
 close( DATEI );              &n
bsp;      # Datei schliessen