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

##</code><code>##

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