#!/usr/bin/perl -w
use strict;
use warnings;

my $l = "";
while (<STDIN>) {
	chomp;
	if ($_ eq "" || length($l) + length($_) > $ENV{width}) {
		$l =~ s/ $//;
		print "$l\n";
		$l = "";
	}
	if ($_ ne "") {
		$l .= "$_ ";
	}
	if ($_ eq "") {
		print "\n";
	}
}
if ($l ne "") {
	print "$l\n";
}