The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use utf8;
use Template::Test;

test_expect( \*DATA );

__END__
--test--
[% USE Lingua.JA.Regular.Unicode -%]
[% 'およよABCDEFGbfege123123オヨヨオヨヨ' | katakana2hiragana %]
--expect--
およよABCDEFGbfege123123およよおよよ

--test--
[% USE Lingua.JA.Regular.Unicode -%]
[% FILTER katakana2hiragana -%]
およよABCDEFGbfege123123オヨヨオヨヨ
[% END -%]
--expect--
およよABCDEFGbfege123123およよおよよ