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