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