use Unicode::CharName qw/uname/;
use Unicode::UCD qw/charinfo/;

my $value = <what you are looking at>
my $c;
print "Unicode Charname:\tHexValue:\tCharCode\n";
for (split //, $value) {
  $c = ord($_);
  print uname($c) .":\t" . charinfo($c)->{code} . ":\t$c\n";
}