my @parts = $text =~ m/^(\d+)-(\d+)-(\d+)$/; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl