#!/usr/bin/perl
use warnings;
use strict;

use utf8;

for my $char (qw(Ð Ñ Ò Ó)) {
    my $n = ord $char;
    open my $BYTE, '>:utf8', \ my $bytes;
    print {$BYTE} $char;
    printf "%s\t%s\t%x\t%b\t%x %x\t %b %b\n",
         $char, $n, $n, $n, (unpack('CC', $bytes)) x 2;
}