sub onionhl
{
   $html = shift;
   my( @rValue ) = ();
   my ( $title, $url, $blurb );

   $html =~ s/^(.*?Ad Juggler Tag ------------------------------>.*?<\/center>)//si;
   $html =~ s/(<hr noshade size="1">.*?<\/center>.*?<hr noshade size="1">)//sig;

   while( $html =~ s/
      <a\ href=.*?target=_top>.*?
         <b>(.*?)<\/b>.*?<br>
         (.*?)<br>.*?
         <a\ href="(.*?)"\ target=_top>.*?
      <br><br>//six )
   {
      $title = $1;
      $blurb = $2;
      $url     = $3;

      unless($title =~ /Customize this feed/i )
      {
         push @rValue,
         {
            'title'   => $title,
            'blurb'   => $blurb,
            'url'     => $url
         };
      }
   }
   return @rValue;
}

return 1;

