opendir my $dir, PLUGINS;
@scanners = map (-f $_ ? /^(.*)\.pm$/i : ()), readdir $dir;
closedir $dir;
# ..
    require "$_.pm";

##</code><code>##

{
    local @INC = PLUGINS;
    opendir my $dir, PLUGINS;
    eval qq(@{[ map -f && ? /^(.*)\.pm$/ && "use \Q$1\E;", readdir $dir ]});
    closedir $dir;
}