my $xml_dir = "c://apache//htdocs//xml";

opendir(DIR, $xml_dir);

my @files = grep { /\.xml$/ } readdir(DIR);
closedir(DIR);

foreach my $file (@files) {

if($file =~/<order>(.*)<\/order>/g){
    		            print "FILE::: $file\n";
} 

}