#!/usr/bin/perl

format =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$_

.

$/ = "";
while (<>)
{
	s/\n/ /g;	# Enter werden zu Space
	s/\s+/ /g;	# Beliebig viele spaces werden zu einem Space
	s/\s*([!?.,])\s*/$1 /g;	# Steuerzeichen
	
	write;
}