Leerzeichen aus Zeichenkette entfernen!

[Martin]

$Zeichenkette=~s/ +/ /g;
$Zeichenkette=~s/(?:^\s+)(?:\s+$)//g;

Hi perldoc,
Danke erst mal für deine Antwort!

dein Vorschlag funktioniert, aber wenn ich eine Zeichenkette mit Zeilenumbruch habe, z.B.: "Neu
                           neue     Zeile   hier  
                           letzte        Zeile   "

Dann soll folgendes dabei rauskommen:
"Neu neue Zeile hier , letzte Zeile"

Es kommt aber folgendes heraus:
"Neuneue Zeile hierletzte Zeile"

Ich will zwischen den Zeilen auch NUR EIN Leerzeichen.

Danke Doc!

Gruß Martin