Perl script which strips filenames/directories of non-ASCII chars