Select Code to Download

use strict;
use warnings;
...
print("hiragana: $hiragana\n");
print("katakana: $katakana\n");
print("kanji:    $kanji\n");