#!/usr/bin/perl
use strict;
use warnings;

use Devel::Peek;
use charnames ':full';

my $thorn = "\N{LATIN CAPITAL LETTER THORN}";
Dump $thorn; 
print $thorn; 
print "\n";