#! perl -slw
use strict;
use Date::Manip;

while( <DATA> ) {
	chomp;
	my $date = ParseDate( $_ );
	printf "'$_' contains the date \n '%s'\n\n",
      UnixDate( $date ,"%T, %b %e, %Y.") || 'Not parsed';
}

__DATA__
22 Oct, 15:30
noon tomorrow
this afternoon at 3
10am next tuesday