Help for this page

Select Code to Download


  1. or download this
    $\ = "\n";
while (<>) {
    s/[^[:print:]]//g;
    print;
}
  2. or download this
    while (<WORK>) {
    tr/\000-\011\013\014\016-\037\177-\377//d;
    print $file $_;
}
  3. or download this
    use open IO => ':bytes';
$/ = \4096;
...
    tr/\012\015\040-\176//cd;
    print $file $_;
}