my ( $month, $day, $year ) = ( $startdate =~ m%(\d\d)/(\d\d)/(\d\d\d\d)% );