Select Code to Download

my @tally;

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

perl script.pl > output.txt

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