Little perl script to print lines containing non-ASCII characters

#!/usr/bin/perl
# Name: print-non-ascii.pl
# Description: print lines containing non-ASCII characters (anything
# other than 000 – 127).
# Could be useful when working with Western Latin / UTF8 / etc.
# encoded files and troubleshooting encoding issues.

while ($line=<STDIN>) {

if ($line !~ /^[x00-x7F]+$/) { print $line; }
}