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


in reply to Character encoding of microns

Have a look at what $clob and $convertedstr contain:

bytes($clob) ; bytes($convertedstr) ; sub bytes { my ($s) = @_ ; my $w = utf8::is_utf8($s) ? "utf8" : "byte" ; use bytes ; print join(":", map(sprintf("%02X", $_), unpack('C*', $s))), " -- $w +\n" ; } ;
which may tell you where your microns are getting lost.