Anonymous

while (<Z>) {
 NEXTLINE:
  if (m/<pre>/i) {
    while (!m,</pre>,i) {
      chomp;
      $_ .= <Z>;
    }
    my ($first,$goo,$rest) = m,(.*?)<pre>(.*?)</pre>(.*?),;
    &dowhateverwith($goo);
    &docrap($first);
    $_ = $rest;
    goto NEXTLINE;
  }
}