* Andrew Savige <[EMAIL PROTECTED]> [2003-02-10 07:28]:
>   @lines = ($x=~/^.*/mg) x !!length($x);

    $_=$x;@lines=(/^.*/mg)x+length;

-- 
Regards,
Aristotle

Reply via email to