First of all, many thanks for the helpful assistance and good advice from @choroba and @hippo!

I have taken up your input and build the following script:

#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;

my $infile = $ARGV[0];

my @regexes = (qr/§\s*[0-9]/, qr/Art\.\s*[0-9IVX]/, qr/Artikel\s*
+[0-9IVX]/, qr/Artikels\s*[0-9IVX]/, qr/Artikeln\s*[0-9IVX]/);

open my $in, '<', $infile or die "Cannot open $infile for reading: $!"
+;

my $xml;
{
  local $/ = undef;
  $xml = <$in>;
}

my $tally;

for my $i (0 .. $#regexes) {
    
    my $regex = $regexes[$i];
    ++$tally[$i] while $xml =~ /$regex/g;
}    

for my $i (0 .. $#regexes) {
    print "$regexes[$i]:\t$tally[$i]\n";
}

close $in;

[download]

With use strict; I get the following error message: 

Global symbol "@tally" requires explicit package name (did you forget 
+to declare "my @tally"?) at monk2.pl line 24.
Global symbol "@tally" requires explicit package name (did you forget 
+to declare "my @tally"?) at monk2.pl line 28.
Execution of monk2.pl aborted due to compilation errors (#1)
    (F) You've said "use strict" or "use strict vars", which indicates
    that all variables must either be lexically scoped (using "my" or 
+"state"),
    declared beforehand using "our", or explicitly qualified to say
    which package the global variable is in (using "::").

Uncaught exception from user code:
        Global symbol "@tally" requires explicit package name (did you
+ forget to declare "my @tally"?) at monk2.pl line 24.
        Global symbol "@tally" requires explicit package name (did you
+ forget to declare "my @tally"?) at monk2.pl line 28.
        Execution of monk2.pl aborted due to compilation errors.</i>

[download]

As the variable $tally is defined beforehand and preceded by the keyword "my", I don't understand what is wrong. How could I fix this?

If I run the same script without use strict;, the output looks like this:

(?^:&sect;\s*[0-9]):    3
(?^:Art\.\s*[0-9IVX]):  2
(?^:Artikel\s*[0-9IVX]):        2
(?^:Artikels\s*[0-9IVX]):       2
(?^:Artikeln\s*[0-9IVX]):       2

[download]

How could I get rid of "(?^:" and ")"? Would it be possible to save this output to a file?

Have a nice afternoon!

In reply to Re^4: Entity statistics by LexPl
in thread Entity statistics by LexPl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.