Ok, but what about this

my @dirs = map { s/\Q$dir\E(\w+?)\.pm$/$1/, $1 } keys %$packlist;

for (@dirs) {
  print "|$_|\n" if ( $_ and length($_) > 2 );
}
[download]

This seems to work, but without the 'length($_) > 2' I get

|1|
|A_Module|
|1|
|An_Other_Module|
[download]

Is there a better way to get rid of the 1s!