On 6/25/06, Fabiano Reese Righetti <frighetti em cascavel.pm.org> wrote: > my $lines = $#{[ <IN> ]}+1; Um pouquinho melhor: my $lines = @{[<IN>]}; -Nilson Santos F. Jr.