#!/usr/bin/perl

use utf8;

my $str = 'Ð Ñ Ò Ó';

print $str."\n";

foreach my $ch (split('', $str)) {
    print ord($ch)."\n";
}

use bytes;

print "bytes\n";

foreach my $ch (split('', $str)) {
    printf("%x %b\n", ord($ch), ord($ch));
}