my $WordRegex = '(?x:\b \w+ \b)'; # Normal string assignment if ($text =~ m/^($WordRegex)/) { print "found word at start of text: $1\n"; } ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl