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

@files = glob(qq{"$path/*.xml"});

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