use strict ;
use warnings ;

use PerlIO ;
use Encode;

my $clob = "this is string with \x{C2}\x{B5} in it";

my $convertedstr = decode("utf8",$clob);

print "clob: " ; bytes($clob) ;
print "conv: " ; bytes($convertedstr) ;

my @layers = PerlIO::get_layers(STDOUT) ; 
print "@layers\n" ;

print "clob: '$clob'\n" ;
print "conv: '$convertedstr'\n";

binmode(STDOUT, ":encoding(UTF-8)") ;

@layers = PerlIO::get_layers(STDOUT) ; 
print "@layers\n" ;

print "clob: '$clob'\n" ;
print "conv: '$convertedstr'\n";

sub bytes {
  my ($s) = @_ ;
  my $w = utf8::is_utf8($s) ? "utf8" : "byte" ;
  use bytes ;
  print join(":", map(sprintf("%02X", $_), unpack('C*', $s))), " -- $w\n" ;
} ;