if ($text =~ m/\b( \w+ \( $LevelN \) )/x) { print "found function call: $1\n"; } if (not $text =~ m/^ $LevelN $/x) { print "mismatched parentheses!\n"; } ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl