my $str = "The Police";
$str =~ s/ /+/;   # read between the slashes: space becomes +
print "$str\n";