perl code.pl *.xml