Perl 5:
$x = "this is a test";
$x =~ s/ /-/;