in reply to grep & take part of match

my @eFILES = map -f "$LIBDIR/$_" && !/^env\.fix$/ && /^env\.([a-z]{3})
+$/ ? $1 : (), readdir LDIR;

[download]

In Section Seekers of Perl Wisdom