use strict;
use warnings;

use Time::Piece;
use Date::Parse;

my $str = 'Thu May 17 22:21:00 JST 2012';
my $time = localtime str2time($str);

print $time->year. '年' . $time->mon . '月' . $time->mday . '日';

__END__

>>95
Ruby知らんけどこういうの？