# allow only letters, digits, underscore and dot
  (my $cleanfile = $file) =~ s/[^\w.]//g;