my $x = "this is a test";
$x ~~ s:g/\s/-/;