Select Code to Download

<td width="25%">big long sentance . . .</td>

use constant POS => 10;

...
    print;
    ($len % POS) ? print ' ' : print '<br>';
}

#inside foreach
    $len += length;
...
    else {
        print ' ';
    }