#!/usr/bin/perl # replace 8-bit characters with spaces. while (<>) { tr/\000-\177/ /cs; print; } exit(0);