# Test it with soft and hard break:
my $textline = 'This is a very long text and I think it breaks on end of line. But you don\'t know it already and so wie test and test and test. And now comes a very long line for hard break_because_we_dont_take_space_but_underline_for_word_seperating_and_now_we_look_what_happens_with_this_line. And? How looks it?';
my $column_width = 280;
$line_spacing = 2;      # without 'my' because I use this code in another content
for (my $fontsize = 5; $fontsize <= 21; $fontsize += 3) {
        # for each font size 5 up to 20 in step 3
        my @word = split / /,$textline; # split text into words
        my (@zeile,$word_new,$width,$inserted);
        my $myline = 0;
        while (scalar @word) {
                $zeile[$myline] = '' if !defined $zeile[$myline];       # prevent "use of uninitialized value...."
                $word_new = shift @word;        # get next word
                $width = $page->string_width($font,$zeile[$myline] . ' ' . $word_new) * $fontsize;      # width of line inc. new word
                $width = ($width - int($width) ? int($width) + 1 : $width);             # round up
                if ($width > $column_width) {   # new line to long with new word
                        if ($zeile[$myline] ne '') {
                                $myline ++;
                                unshift @word,$word_new;        # back to list for new width check in next round
                        }
                        else {  # word to long for one line, hard break
                                $inserted = 0;
                                for (my $xpos = 0; $xpos < length($word_new); $xpos ++) {
                                        $width = $page->string_width($font,substr($word_new,0,$xpos + 1)) * $fontsize;  # width of line inc. new word
                                        $width = ($width - int($width) ? int($width) + 1 : $width);             # round up
                                        if ($width > $column_width) {
                                                # hard break
                                                $zeile[$myline] = substr($word_new,0,$xpos);    # take well-fitting portion in line
                                                $myline ++;
                                                unshift @word,substr($word_new,$xpos);  # put rest back to list für next round
                                                $inserted = 1;
                                                last;
                                        }
                                }
                                if (!$inserted) {       # word alone is well-fitting for one line
                                        $zeile[$myline] = $word_new;
                                        $myline ++;
                                }
                        }
                }
                else {
                        # add word to line soft break
                        $zeile[$myline] .= ($zeile[$myline] ne '' ? ' ' : '') . $word_new;      # insert splited blank
                }
        }
        while (scalar @zeile) {
                $page->stringl($font,$fontsize,295,$position_y,shift @zeile);   # print out line
                $position_y -= ($fontsize+$line_spacing);       # cursor to next line
        }
}