http://www.perlmonks.org?node_id=860232


in reply to Re^3: length() returns wrong result - suspicious magic
in thread length() returns wrong result - suspicious magic

while ( $sth_sel->fetch ) { $txt = $txt; printf "%3u %3u %3u %s [%s] [%s]\n", ++$i, length($txt), bytes::length($txt), (utf8::is_utf8($txt) ? ' utf8' : '!utf8'), $txt, $xml; }

made no difference.