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




-----------------------------------------------------------------------------
Copyright 1997-2026 Jeffrey Friedl