Help for this page
/[\xC0-\xFF][\x80-\xBF]+/
my($utf8, $bare) = (0, 0); use bytes; ... utf-8: $utf8 bare: $bare END