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