use Modern::Perl; use Date::Parse; use DateTime; while () { my $dt = DateTime->from_epoch( epoch => str2time($_, '+0000')); say join ' ', $dt->month_name(), $dt->day(), $dt->year(); } __DATA__ December 14th 2012 December 21st 2012 December 22nd 2012