#!/usr/bin/perl

use open qw(:std :utf8);

my %dict = ();
while (<>) {
    next if /^\s*$/;
    my ($word, @phones) = split;
    $word = uc $word;
    $word =~ s/\pP//g;
    $dict{$word} = "@phones";
}

foreach my $w (sort keys %dict) {
    printf("%-30s %s\n", $w, $dict{$w});
}
