C:/Documents and Settings/UserX/Desktop/WORK/data/var - 21/dat

##</code><code>##

@files = glob( $path . "/*.xml );
print join ( "\n", @files );
<code>
This returns:
<code>
C:/Documents
and
Settings/UserX/Desktop/WORK/data/var

##</code><code>##

$path =~ s/\//\\\\/g;
$path =~ s/\ /\\\ /g;