$0=tolower($!gsub("[^Ia-z]|I"(/u/?1:_)," &"))