'2004-9-1' lt '2004-10-1' '2004/09/01' lt '2004-09-01' #### sub normalize_date { return join( '', map { sprintf( '%02i', $_ ) } split (/\D+/, $_[0]) ) } sub compare_dates { return normalize_date($_[0]) cmp normalize_date($_[1]) }