#!/usr/bin/perl

use warnings;
use strict;

my $string = "H  avi";

$string =~ tr% +% %s;

print $string;