return ( ! eregi("^[[:alpha:] ]+$", $str)) ? FALSE : TRUE;
return ( ! eregi("^[[:alpha:] \t]+$", $str)) ? FALSE : TRUE;