my $escaped_file = $nfile;
$escaped_file =~ s/&/&/g;
$escaped_file =~ s/"/"/g;
print FIL "<item id="$t" name=\"$escaped_file\" />\n";