my $line_nr=0;
my $line_nr_oben=0;
local $/ = "/>";

unshift(@ARGV, '-') unless @ARGV;

while ($ARGV = shift) {
	open(ARGV, $ARGV);
	$line_nr=0;
	$line_nr_oben=0;
	while (<ARGV>) {
	
	$string = $_;
	$line_nr=$line_nr_oben;
	#Eingelesene Zeilenzahl speichern
		foreach ($string =~ m/\n/g){
			$line_nr_oben++;
		}
	#Zeilenumbrüche entfernen
	$string =~ s/\r?\n//g;
        if($string =~ m/< ...

...

print "Feher in Zeilen $line_nr - $line_nr_oben";