in reply to Parsing the year out of date

You install the Date::Manip module, and then 

use Date::Manip;
$datestr = "1/26/2005 9:58:31 AM";
$year = UnixDate($datestr, "%Y");

[download]
gives the year.

In Section Seekers of Perl Wisdom