Another way of doing that that usually benchmarks faster is a simple tr:

while (<>) {
  tr/ -~//cd;
}
[download]

-- Randal L. Schwartz, Perl hacker