: unidecode($v) =~ /\Q$c\E+/i ? 'g4' # transliterated
: $v =~ /\A[\p{Sk}\p{Lm}]+\z/ ? 'g8' # modifier symbol
: $v =~ /\A[\pM\pP]+\z/ ? 'g7' # mark
: unidecode($v) =~ /\Q$c\E+/i ? 'g4' # transliterated
: $v =~ /\A[\p{Sk}\p{Lm}]+\z/ ? 'g8' # modifier symbol
: $v =~ /\A[\pM\pP]+\z/ ? 'g7' # mark