Short answer: Date::Manip.

Longer answer: my $date1= &UnixDate( &ParseDate("friday 3pm 2 weeks ago"), '%Y-%m-%d %H:%M:%S' );