my ($word)   =  $text =~ m/(\w+)/;
my $success  =  $text =~ m/(\w+)/;




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl