while(<UPD1>) { chomp; s/^\s+//; s/\s+$//; next unless length;
There's probably not much reason to chomp() and s/\s+$//, since the later handles both.
James
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>