#!/usr/bin/perl

use utf8;
use Data::Dumper;
use warnings;
use strict;

my $a = "tón";

print Dumper($a),qq(\n);