Perl regular expression to find non-printable characters

Here's a quick perl regex to find non-printing / control characters:

/[\x80-\xFF]/

You can use this in conditionals, substitutions, etc. to find or remove / replace these annoying characters.