if ($s=~ /^ [^\W_]{6,20} $/x) {
  print "success!";
}