abcd なら4文字、あいウエ なら8文字、abcdあいウエ なら12文字で良いのかな？
これ試してみて。
$tc(len,tc(reg, "aあbイcう", "[^\x01-\x7E]",""))+tc(len,tc(reg, "aあbイcう", "[\x01-\x7E]",""))*2$