Entry

I have a 4KB piece of text data. How can I detect/remove binary data from this?

Jan 26th, 2001 06:43
Robert Bogomip, George Roberts,

$numdeleted = $data =~ tr / -~\012//cd

This kills anything that's not in the printable ascii range from space
to tilde (the "\012" leaves newlines in as well). $numdeleted is left
with the number of characters removed.