length($foo)-grep(1+index(((1e9/.7)^7*13*89)."\_",$_),map chr($_),unpack"C*",$foo) == length("\Q$foo")-length($foo)