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

   $html =~ s/&amp;/&/gixs;

   print "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAAAaaA";
   print "html: $html\n\n";
   print "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb";
   #exit 1;

   if( $html =~ /<div class="img-comic-container">(.*?)<\/div>/gsi)
   {
       $div=$1;
       if( $div =~ /<img class=.*?src=\"(.*?)"/gsi )
       {
           print "source: $1\n";
           $description=$1;
           # there is sometimes an extra dilbert.com, remove it ...
           $description =~ s/www.dilbert.com\/\///gisx;
           $description =~ s/http:\/\/www.dilbert.com\/strip\///gisx;
           print "processed description: $description";
       }
       push @rValue, {
           'headline'     => $title,
           'description'  => $description,
           'url'          => $url,
       };

        # clean up after ourselves.
       undef($description);
       undef($url);
       undef($title);
   }

   #exit 1;
   return @rValue;
}

return 1;

