Leerzeichen aus Zeichenkette entfernen!

[Martin]

Tach Allerseits,

ne Frage: Wie bekomme ich aus einer Zeichenkette mit Hilfe von regulären Ausdrücke alle Leerzeichen weg, außer je ein Leerzeichen zwischen zwei benachbarte Wörter?
Beispiel: $Zeichenkette = "    ein Wort   ,     noch   ein   Wort  ";
          Ich will Zeichenkette aber so:
          "ein Wort , noch ein Wort"

Danke im voraus!
Gruß Martin