opendir my $dir, "." or die "Cannot open directory: $!";
my @files = readdir $dir;
closedir $dir;

foreach $file (@files) {
    unless (($file =~ /^[A-Za-z0-9_\s\-]*$/) && (-f $file)) {
        print "  Skipped $file\n";
        next;
    }
    open OUTFILE, ">$file.txt";
    open INFILE, "<$file";
    while (<INFILE>)
    {
        tr [\200-\377] [\000-\177];
        print OUTFILE $_;
    }
    close INFILE;
    close OUTFILE;
    print "  Read $file, wrote $file.txt ...\n";
}
sleep (5);