#!/usr/bin/perl -w use strict 'refs'; use lib '..'; use utf8; use Encode; use MIME::Base64; binmode STDOUT, ":utf8"; binmode STDIN, ":utf8"; sub tokugi { $_=<STDIN>; return "弓" if /弓/; return "騎馬" if /騎馬/; return "槍" if /槍/; return "銃" i</stdin>…