$ perl -MO=Deparse -e'while(<@eachline>){}'
use File::Glob ();
while (defined($_ = glob(join($", @eachline)))) {
    ();
}
-e syntax OK