$path = "C:/Documents and Settings/Administrator";

local *DIR;
opendir(DIR, "C:/Documents and Settings/Administrator");
@files = map { "$path/$_" }
         grep { /\.xml$/i }
         readdir(DIR);

$\ = $, = "\n";
print @files;
# C:/Documents and Settings/Administrator/file.xml