next if $member->isDirectory; 

##</code><code>##

(my $extractName = $member->fileName) =~ s{.*/}{};