for ($string) { tr/ '/_/d; print }