$foo =~ s/ {2,}/ /g;