local $/ = "/>";

my @files = @ARGV ? @ARGV : ('-');      # - ist STDIN
my $fh;

for my $file (@files) {
    open($fh, '<', $file);              # ... or die ...
    my ($line_nr, $line_nr_oben) = (0, 0);

    while (my $string = <$fh>) {
        $line_nr = $line_nr_oben;
        my $count = s{\r?\n}{}g || 0;   # s/// gibt Zahl der Matches zurück
        $line_nr_oben += $count;

        if($string =~ m/< ...

...

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