Problem sa prelomom texta

Dali neko zna da rijesi problem dugackog teksta.. treba mi perl/cgi kod da lomi texst na odredzen broj karaktera
(treba mi kod da rijesi ovaj problem.. )
npr.
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa..

naso sam jedan.

@komentar = split (/s/,$komentar);
foreach $komentar (@komentar) {
while (length($komentar) > 55) { #recimo
print substr($komentar,0,55);
$komentar = substr($komentar,55);
print qq!-<br>!;
}
print $komentar;
}

nepase mi najbolje ovaj kod samo kad bi ovaj kod mogao da prekida samo odredzen broj karaktera ako su zajedno bez razmaka ako su ti karakteri sa razmakom da ih ne prekida jer ce se oni samo prebaciti u drugi red..

npr.
aaaaaaaaaaaaaaaaaaaaaaa-
aaaaaaaaaaaaaaaaaaaaaaa-
aaaaaaaaaaaaaaaaaaaaaaa-
aaaaa aaaaa aaaaaa aaaaa
aaa aaaa aaaaaa aaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaa-
aa

nadams e da sam bio jasan sa svojim problemom

Ako ko zna nek mi se javi.

Potpis

oxay