in reply to Extracting Text from a Binary File

Use something like 
/[[:print:]]{3,}/;

[download]
To identify runs of 3 or more printable characters.
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom