Select Code to Download

my $romaji = plaque("@romaji");
    my $hiragana = plaque(hiragana($text));

my $text = "@romaji";
    my $romaji = plaque($text);
    my $hiragana = plaque(hiragana($text));

my %Hiragana;
use charnames qw/hiragana/;
sub get_hiragana { chr charnames::vianame("HIRAGANA LETTER ".uc(shift)
+) }
...
    }
}
delete $Hiragana{$_} for qw/tu si ti/; # delete Unicode-y names for ts
+u, shi, and chi