open my $out, '>', 'output.txt' or die $!;
for my $i (0 .. $#regexes) {
    my $regex = $regexes[$i];
    $regex =~ s/^\(\?\^://;
    $regex =~ s/\)$//;
    print {$out} "$regex:\t$tally[$i]\n";
}