package DateTime::Format::Homework;
use DateTime::Format::Builder (
	parsers => {
		parse_datetime => [
			{strptime => '%b %d %Y'}, # Apr 8 1984
			{strptime => '%b %d %y'}, # Apr 08 84
			{strptime => '%m/%d/%y'}, # 4/8/84 and 04/08/84
			{strptime => '%d %b %Y'}, # 08 Apr 1984
		],
	}
);

##</code><code>##

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";
}

##</code><code>##

1984-04-08
1984-04-08
1984-04-08
1984-04-08
1984-04-08