saving

[Kevin Buettner]

On Oct 4,  4:10pm, Lynn David Newton wrote:
> Subject: Re: saving
> 
>   >> Actually, it would be useful to have a program
>   >> that pulls *only* the standard 128- or 256-bit
>   >> (according to taste) ASCII characters. I'm sure
>   >> someone has written one somewhere. strings(1) is
>   >> almost good enough, but still leaves a lot of glop
>   >> in there.
> 
>   Kevin> Should be a pretty simple perl script...
> 
> I'll write one myself.

How about...

#!/usr/bin/perl -w

while (<>) {
    s/[^\040-\176\n]//g;
    print;
}