...
 $EncodeMap{"\x20"} = '+';
 ...
 $s =~ y/+/\x20/;