$file =~ s@[^\w/. -]@@g;
$file =~ s/\.+/./g;