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;
}