Many many thanks Bob! Glad to know I can do it in one-line.
for ( ...blah... ) {
seek(INFILE, 0, 0); # <--- rewind file back to start
while (<INFILE>) { ...
}
}
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
