Hi,
i suggest to use Text::Wrap. Also you can type this maybe it is what you want. perl -ne 'print "$1\n" while (/\s*((?:.{1,78})|\S+)\b/g)' < your_text.txt Am Samstag, 9. März 2002 19:42 hast Du geschrieben: > could someone please help me make this bit of code > more efficient? I am trying to break really long > lines, say up to 600 characters into manageable sizes > (78 or less characters) but I do not want to break > cleanly at position 78. If that is in the middle of a > word, my program back steps to the first whitepace. > > but I think I am overdoing it here, although it seems > to give me the results I want. > > I would not like to use a module for this, but rather > have it hard coded myself. Please help me without > module advice if possible -- cu boris Frage an Radio Eriwan: "Stimmt es, daß in den USA jeder ein Auto hat?" Antwort: "Im Prinzip ja, aber bei uns hat dafür jeder einen Parkplatz." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]