use Text::Table;
my $tb = Text::Table->new(
    "Regex", "Tally"
);

my @rows;
for my $regex (@regexes) {
    my $tally;
    $tally++ while $xml =~ /$regex/g;

    $regex =~ s/^\(\?\^://;
    $regex =~ s/\)$//;
    push @rows, [$regex, $tally];
}

$tb->load( @rows );
print $tb;