#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use Devel::Peek;

{
    use bytes;
    my $bytes = '小飼弾';
    Dump($bytes);
    my $utf8 = decode_utf8($bytes);
    Dump($utf8);
}
{
    use utf8;
    my $bytes = '小飼弾';
    Dump($bytes);
    my $utf8 = decode_utf8($bytes);
    Dump($utf8);
}