+print "<h2>Japanese</h2>\n\n";
+print table(@$_) for (
+ [
+ 1 => [qw{
+ . あ い う え お =
+ . か き く け こ =
+ . さ し す せ そ =
+ . た ち つ て と =
+ . な に ぬ ね の ん
+ . は ひ ふ へ ほ =
+ . ま み む め も =
+ . や = ゆ = よ =
+ . ら り る れ ろ =
+ . わ ゐ = ゑ を =
+ }],
+ ['', qw{K S T N H M Y R W}],
+ [qw{A I U E O}, ''],
+ ],
+ [
+ 1 => [qw{
+ . が ぎ ぐ げ ご
+ . ざ じ ず ぜ ぞ
+ . だ ぢ づ で ど
+ . ば び ぶ べ ぼ
+ . ぱ ぴ ぷ ぺ ぽ
+ }],
+ [qw{G Z D B P}],
+ [qw{A I U E O}],
+ ],
+ [
+ 1 => [qw{
+ . ア イ ウ エ オ ー
+ . カ キ ク ケ コ =
+ . サ シ ス セ ソ =
+ . タ チ ツ テ ト =
+ . ナ ニ ヌ ネ ノ ン
+ . ハ ヒ フ ヘ ホ =
+ . マ ミ ム メ モ =
+ . ヤ - ユ - ヨ =
+ . ラ リ ル レ ロ =
+ . ワ ヰ - ヱ ヲ =
+ }],
+ ['', qw{K S T N H M Y R W}],
+ [qw{A I U E O}, ''],
+ ],
+ [
+ 1 => [qw{
+ . ガ ギ グ ゲ ゴ
+ . ザ ジ ズ ゼ ゾ
+ . ダ ヂ ヅ デ ド
+ . バ ビ ブ ベ ボ
+ . パ ピ プ ペ ポ
+ . ヷ ヸ ヴ ヹ ヺ
+ }],
+ [qw{G Z D B P V}],
+ [qw{A I U E O}],
+ ],
+);
+
+:><p id="footer">
+ <a href="http://vi.shiar.net/unicode">vi.<strong>shiar.net</strong>/unicode</a>
+ <a href="git://dev.shiar.net/vi-cheat"><:= "v$VERSION" :></a>
+ created by Shiar •
+ <a title="Licensed under the GNU Affero General Public License, version 3"
+ href="http://www.fsf.org/licensing/licenses/agpl-3.0.html">AGPLv3</a> •
+ last update <:
+ use Time::Format qw(time_format);
+ print time_format('yyyy-mm-dd', (stat $ENV{SCRIPT_FILENAME})[9]);
+ :>
+</p>
+
+</html>