my $wrap = 120;
$langezeile =~ s/^(?:(.{0,$wrap}\s+)|(.{$wrap}))/$1$2\n/g;