Ein <#c3><#96>konomisches Modell
Ein <#d6>konomisches Modell 1
Ein <#d6>konomisches Modell 1

##</code><code>##

sub print_chrcodes
{
    my $str = shift;
    my $ret;
    use bytes;  #<<<<<<<<<here
    foreach my $ascval (unpack("C*", $str)) {
        if($ascval == 13) {
            $ret .= '<cr>';
            next;
        }
        if($ascval == 10) {
            $ret .= '<nl>';
            next;
        }
        if($ascval <  128) {
            $ret .= chr($ascval);
            next;
        }
        $ret .= sprintf ("<#%x>",$ascval) if($ascval >= 128);
    }
    return $ret;
}

##</code><code>##

$hash->{TITLE}="f\xc3\xa4ce=\xe2\x98\xbb";
print "TITLE=$hash->{TITLE}\n";
my $nfreeze = Storable::nfreeze($hash);
my $obj     = Storable::thaw($nfreeze);
print '${^UNICODE}='.${^UNICODE}."\n";
print "TITLE=$obj->{TITLE}\n";