Select Code to Download

use strict;
use warnings;
...
   print $_, '=>', (get_file_association($_) || "NOT KNOWN"), "\n";
   }

#!perl -w
use strict;
...
push @list2, grep { /^\./ && lc($Classes->{"$_\\"}->GetValue('')) =~ /
+$matchexp/ } @keynames;

print join ("\n", @list2);