BEGIN{ @ARGV = map glob, @ARGV }
while( <> ) {
   ...
}

##</code><code>##

perl -eBEGIN{@ARGV=map{glob}@ARGV} -nle"1" a*.pl b*.pl