$rest = "+ " . $';

##</code><code>##

  $rest = ( $' ) ? "+ $'" : '';

##</code><code>##

while ( length($rest) > 25 ) {
    my $break = index( $rest, ' ', 25 );
    last if ( $break < 0 );    # no more spaces to break on
    push @text, substr( $rest, 0, $break );
    $rest = '+ ' . substr( $rest, $break );
}
push @text, $rest if ( length( $rest ));