Meet B::Deparse, the clue bringer

$ perl -MO=Deparse -e " my @xml_files = <*.xml> "
use File::Glob ();
my(@xml_files) = <*.xml>;
-e syntax OK
[download]

File::Glob...