use strict; use File::Find::Rule; sub loopDir { File::Find::Rule->file->name(/\.xml$/i)->in(@_); };