$result= (not /^([^A-Z]|[A-Z].*(_Flags|_Info))$/);