#!/usr/bin/perl

use warnings;
use strict;

my $string = "H+a+v+i";

$string =~ tr% +% %s;

print $string;