Select Code to Download

# --- push everything into an array ---
my @match = ();
...
}
print "</tr>\n" if $inrow;
print "</table>\n";