$_ = $response->content;
  m/GENERAL SYNOPSIS AT ([0-9]{4})<BR>\n((^.+<BR>\n)+)<P>/mi;
  print "===> ".$1."  ".$2."\n";