#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell
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:
