#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use lib '../lib';
use Lingua::JA::FindDates 'subsjdate';
#$Lingua::JA::FindDates::verbose = 1;
binmode STDIN, ":encoding(utf8)";
binmode STDOUT, ":encoding(utf8)";
while (<STDIN>) {
#    print "$_\n";
    print subsjdate ($_);
}

# Local variables:
# mode: perl
# End:
