in reply to Sniffing binary data, heuristics?

How about using the tr operator to count non-printables. something like 
 if  tr/a-zA-Z0-9!@#$%^&*()_+-={}[]|\\,./<>?:";'//cs > 0 {
     # Has non-printables....
}

[download]
Note: Concept tested, and works, - exact tr statement not tested.

Offense, like beauty, is in the eye of the beholder, and a fantasy.
By guaranteeing freedom of expression, the First Amendment also guarntees offense.

In Section Seekers of Perl Wisdom