while (<>) {
      if (/^title:\s*(.*)/i) { $title = $1; }
    }