open(FH,">>message.txt")

##</code><code>##

$value =~ s/+/ /;

##</code><code>##

$value =~ s/\+/ /;