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