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

##</code><code>##


===> 0100  1021 BY THAT TIME<BR>