$directory = "/opt/tmp/";
opendir(DIR, $directory) or die "\nCannot open dir : $!\n";

@files = grep {-f "$directory/$_" && /\.xml$/i} readdir or die "Error = $!";

closedir(DIR);