$day = '([0-3]?[0-9])(?:th|st|nd|rd)'

##</code><code>##

if ((($month, undef, $day, $year) = /($month)($day)($year)/io) ||