The "more standard" (?) way of writing that would be:

while (my ($id1, $text) = ...) { ... }
[download]

That is, declaring both variables at the same time. It looks nicer that way, I feel.

japhy -- Perl and Regex Hacker