Select Code to Download

'2004-9-1' lt '2004-10-1'
'2004/09/01' lt '2004-09-01'

sub normalize_date { return join( '', map { sprintf( '%02i', $_ ) } sp
+lit (/\D+/, $_[0]) ) }
sub compare_dates { return normalize_date($_[0]) cmp normalize_date($_
+[1]) }