while (<DATA>) {
   unless (length($_) > 20 ) {
     if ($_=~m#^[a-zA-Z]+(\s?[a-zA-Z]+)?$#) {
        print $_ . "\n";
     }
  }
}
__DATA__
Johnson
Larry Wall
GeorgeWashingtonBushBush