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