my @tally;

##</code><code>##

for my $i (0 .. $#regexes) {
    my $regex = $regexes[$i];
    $regex =~ s/^\(\?\^://;
    $regex =~ s/\)$//;
    print "$regex:\t$tally[$i]\n";
}

##</code><code>##

perl script.pl > output.txt

##</code><code>##

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";
}