use DateTime::Format::Homework;

foreach ('Apr 8 1984', 'Apr 08 84', '4/8/84', '04/08/84', '08 Apr 1984') {
	print DateTime::Format::Homework->parse_datetime( $_ )->ymd . "\n";
}