if (eval { $date = Time::Piece->strptime($1, '%m/%d/%Y'); 1 }) {