use strict;
use warnings;

my $str = "  Hello\n\t\n   World  \n";
print ">$str<\n";
$str =~ s/\b\s+\b/ /g;
print ">$str<\n";

##</code><code>##

>  Hello
	
   World  
<
>  Hello World  
<