if (length($name) <= 20 and $name =~ m/^\w+\s(\w+\s)?\w+$/i) { print "okay\n"; }