my @parts  =  $text =~ m/^(\d+)-(\d+)-(\d+)$/;




-----------------------------------------------------------------------------
Copyright 1997-2025 Jeffrey Friedl