perl -Mutf8 -ne"print if /[^\0-\x7f]/"