Script for copying files from a Linux filesystem to a memory stick with a VFAT filesystem that gets rid of accented characters nicely and eliminates other non-standard characters.

find . -type f |  \
 perl -MFile::Path::Tiny \
      -MFile::Copy \
      -MText::Unaccent::PurePerl \
      -lne \
        '$orig = $_;
         $st = unac_string($_);
         $st =~ s%[^-\./[:alnum:]]%_%g;
         $st =~ m%(.*)/%;
         File::Path::Tiny::mk("/media/Kingston/Music/" . $1);
         copy($orig, "/media/Kingston/Music/" . $st);
        '