Select Code to Download

  $rest = "+ " . $';

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

while ( length($rest) > 25 ) {
    my $break = index( $rest, ' ', 25 );
...
    $rest = '+ ' . substr( $rest, $break );
}
push @text, $rest if ( length( $rest ));