$str =~ m/(\w+)/;




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