my ($year, $month, $day) = $date =~ m{^ (\d+) / (\d+) / (\d+) $}x; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl