if ( my ($year, $month, $day) = $date =~ m{^ (\d+) / (\d+) / (\d+) $}x ) { # Process for when we have a match: $year and such are available } else { # here if no match . . . } ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl