Select Code to Download

while (my $line = <INPUT>) {
   my item = "UNKNOWN";
...

   if ($line =~ /Count:\s+(\d+)/) { $checks{$item}{$stage} = $1; }
}