#NO FORWARD O-ANG WITHOUT A THAI MUTE/CONSONANT ENDING
my $nfw_oang = eval(qr%	
    (?!\p{IsOang}(?!
        (?:\p{InThaiFinCons}){1,2}	
        (?![\p{InThaiCompVowel}\p{InThaiPostVowel}\p{InThaiTone}])
        (?:\p{InThaiMute})
    ))%);

#INITIAL CONSONANT(S)
my $initialconsonant = eval(qr%
	(?:
		(?:
		  (?:\p{InThaiDualC1})
		  (?:\p{InThaiDualC2})
		)
		|
		(?:\p{InThaiCons})
	)%);