while (<IN>) {
  next unless /\S/; # ignore blank lines
  next if /^\s*".*"\s*$/; # ignore message lines

  # do stuff
}
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg