Select Code to Download

use URI::Escape qw( uri_escape );

...
#$escaped_file =~ s/"/"/g;

print FIL "<item id=\"$t\" name=\"$escaped_file\" />\n";