$\ = "\n";
while (<>) {
    s/[^[:print:]]//g;
    print;
}

##</code><code>##

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

##</code><code>##

use open IO => ':bytes';
$/ = \4096;
...
while (<WORK>) {
    tr/\012\015\040-\176//cd;
    print $file $_;
}