Help for this page

Select Code to Download

Select or download this

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