$str =~ m/(\w+)/; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl