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




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl