return ( valid_perl_p($individual) ? length($individual) : 0 );