The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use utf8;
use strict;
use warnings;
use Lingua::JA::Regular::Unicode;
use Data::Section::TestBase;
use Test::More;

for my $block (blocks()) {
    is alnum_z2h($block->input), $block->expected;
}
done_testing;

__END__

===
--- input:    およよABCDEFGbfege123123><
--- expected: およよABCDEFGbfege123123><