while ($text =~ m/(\d+)/g) {
    print "found: $1\n";
}




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