#!perl

use strict;
use warnings;
use autodie;

use Unicode::UCD qw( charinfo );

open my $input_fh, '<:encoding(UTF-8)', 'DriedMangos.txt';

while (my $line = <$input_fh>) {
    chomp $line;

    while ($line =~ m/(.)/g) {
        my $character = $1;
        my $codepoint = ord $character;
        my $charinfo  = charinfo($codepoint);

        my $code = "U+$charinfo->{'code'}";
        my $name = $charinfo->{'name'};

        print "$code $name\n";
    }

    print "\n";
}

close $input_fh;