1) better use 

$data = <<DATA;
some
multiline
string
DATA

2) try to use

foreach (split "\n", $data) {
        push (@everyline, $_);
}

or even better

@everyline = split "\n", $data;

On Wednesday 30 May 2001 19:25, you wrote:
> The following seems to never break out of the loop,
> any comments?
> Thanks
>
> Dave
>
> #!/usr/bin/perl -w
>
>
> $data = 'some
> multi line
> string';
>
>
>     while($data){
>
>        push(@everyline, $_);
>
>     }

-- 
Ondrej Par
Internet Securities
Software Engineer
e-mail: [EMAIL PROTECTED]
Phone: +420 2 222 543 45 ext. 112

Reply via email to