: NFKD($row[2]) =~ $row[0] ? 2 # decomposed equivalent
: $row[2] =~ /^\p{Latin}/ ? 4 # latin script
: unidecode($row[2]) =~ /^\W*\Q$row[0]/ ? 5 # transliterated
: NFKD($row[2]) =~ $row[0] ? 2 # decomposed equivalent
: $row[2] =~ /^\p{Latin}/ ? 4 # latin script
: unidecode($row[2]) =~ /^\W*\Q$row[0]/ ? 5 # transliterated