my @nums  =  $text =~ m/\d+(?:\.\d+)?|\.\d+/g;




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