Hello, LaVei! You wrote to "Samara (Russia) Perl Mongers" <samara-pm на mail.pm.org> on Thu, 25 Sep 2003 18:20:52 +0500: YK>> foreach my $text (split (/\n/,$text)){ L> А цикл для чего? Для абзацев. т.е если в строке есть символы переноса, то строка начнется заново. With best regards, Yury Kopyl. E-mail: hrg на sama.ru