#!/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;