print scalar grep /[^\0-\x{ff}]/, decode_utf8 "€";