printf "mein Text im Original %s\n und jetzt geƤndert %s", $text, do { local $_ = $text; s/\s+//g; $_ };