while (<WORK>) {
    tr/\000-\011\013\014\016-\037\177-\377//d;
    print $file $_;
}