19 lines
719 B
Perl
19 lines
719 B
Perl
my $s = "In olden times when wishing still helped one, there lived a king
|
|
whose daughters were all beautiful, but the youngest was so beautiful
|
|
that the sun itself, which has seen so much, was astonished whenever
|
|
it shone in her face. Close-by-the-king's-castle-lay-a-great-dark
|
|
forest, and under an old lime-tree in the forest was a well, and when
|
|
the day was very warm, the king's child went out into the forest and
|
|
sat down by the side of the cool fountain, and when she was bored she
|
|
took a golden ball, and threw it up on high and caught it, and this
|
|
ball was her favorite plaything.";
|
|
|
|
$s =~ s/\b\s+/ /g;
|
|
$s =~ s/\s*$/\n\n/;
|
|
|
|
my $_ = $s;
|
|
s/\s*(.{1,66})\s/$1\n/g, print;
|
|
|
|
$_ = $s;
|
|
s/\s*(.{1,25})\s/$1\n/g, print;
|