use utf8;
use 5.010;
use strict;
use warnings;

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

sub get_bytes {
    my ($string) = @_;

    use bytes;
    map { bytes::ord bytes::substr($string, $_, 1) } 0 .. bytes::length($string) - 1;
}

my $s1 = "møøse";
my $s2 = "m\xF8\xF8se";

say $s1;
say $s2;

say "Equal: ", $s1 eq $s2;

say join(" ", get_bytes($s1));
say join(" ", get_bytes($s2));