local $/ = "<hr>\n";
while( my $line = <> ) {
  ## process results from $line ...
}