$string =~ tr/ /_/s;