in reply to Re^4: Detecting 'binary' in a variable
in thread Detecting 'binary' in a variable

\xA5 = 165 which should match just about everything except Greek (as per the OP's specs). Unicode not considered either.

In Section Seekers of Perl Wisdom