#!C:\strawberry\perl\bin -w
use strict;
my $ersetzen;

open (ERSETZEN,"suchen.txt") || die "kann Datei nicht oeffnen: $!";
while($ersetzen = <ERSETZEN>){
#liest aus der datei die einzelnen zeile heraus    

    chomp($ersetzen);    
    print "ausgabe1:$ersetzen\n";
    
}
print "ausgabe2:$ersetzen\n";