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

##</code><code>##

for my $i (0 .. $#regexes) {
    my $regex = $regexes[$i];
    $regex =~ s/^\(\?\^://;
    $regex =~ s/\)$//;
    printf {$out} "%-20s %30d \n", $regex, $tally[$i] // 0 ;
 }
##</code><code>##

 if ($tally[$i] ne '0') {
    printf {$out} "%-20s %30d \n", $regex, $tally[$i] // 0 ;
  }