$message =~ tr/ /_/;