use constant POS => 10;

my $str = '$comment';
my $len;
foreach (split(/\s/,$str)) {
    $len += length;
    print;
    if ($len > 10) {
         print '<br>';
         $len = 0;
    }
    else {
        print ' ';
    }
[download]