rename the files?

my @files = glob("./*");
for my $filename (@files) {
    (my $newname = $filename ) =~ s/[^A-Za-z0-9\.]/_/;
    if ( -e $newname ) {
        warn "$newname already exists, skipping rename on $filename\n"
+;
    }
    else {
        rename $filename, $newname;
    }
}
[download]

If you want to change what is actually in the files you can use an inplace edit with a suitable regex

perl -pi.bak -e 's/[^\w\.\t \n]//' <files>
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print