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

my $a='AAA';
Dump($a);
$a = decode('utf8',$a);
Dump($a);