$xxx =~ s/ /_/g;
$xxx =~ tr/ /_/;