$str ="Any    help would   be    greatly      appreciated";
$str =~ s/\s+/ /g;
print $str;