You might also try:
if (($fName =~ /^([^\d\s]+)$/) &&
($lName =~ /^([^\d\s]+)$/)) {
which eliminates an alternation.
-dave
>
> if (($fname !~ /^\s+$|\d+/) &&
> ($lname !~ /^\s+$|\d+/)) {
>
===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org