Select Code to Download

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

my $infile = $ARGV[0];
open my $inh, '<', $infile or die "Cannot open $infile for reading: $!
+";
...
  $xml = <$inh>;
}
close $inh;