print "\$_ has got Thai" if m{
        \p{InThai}
        |\p{InThaiCons}
        |\p{InThaiHCons}
        |\p{InThaiMCons}
        |\p{InThaiLCons}
        |\p{InThaiVowel}
        |\p{InThaiPreVowel}
        |\p{InThaiPostVowel}
        |\p{InThaiCompVowel}
        |\p{InThaiDigit}
        |\p{InThaiTone}
        |\p{InThaiPunct}
    }x;