Select Code to Download

use strict;
use warnings;
...
                $reglist{$regex}() if /$regex/;
        }
}

use warnings;

...
  my @which = map { defined $hits[$_] ? $_ : "" } 0..@hits-1;
  print "$_: @which\n";
}