$text = "WOW! This is a SILLY test."; $text =~ m/\b([a-z]+\b)/g; print "The first all-lowercase word: $1\n"; $text =~ m/\b([A-Z]+\b)/g; print "The subsequent all-uppercase word: $1\n"; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl