while ($line =~ s/([^\r]{60})[^\r]/$1\r/){
; # as long as 60 characters are not followed by a \r, put one in
}
----- Original Message -----
From: "Pedro A Reche Gallardo" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Friday, November 09, 2001 7:27 PM
Subject: printing lines chunk
> Hi All, I have a long line with no blank characters and I would like to
> insert a return character every 60 characters. Any idea welcome.
> Regards
>
> Pedro
>
***************************************************************************
> PEDRO a. RECHE gallardo, pHD TL: 617 632 3824
> Scientist, Mol.Immnunol.Foundation, FX: 617 632 3351
> Dana-Farber Cancer Institute, EM:
[EMAIL PROTECTED]
> Harvard Medical School, EM: [EMAIL PROTECTED]
> 44 Binney Street, D610C, URL: http://www.reche.org
> Boston, MA 02115
>
***************************************************************************
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
