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

   $description="";

   $html =~ s/&amp;/&/gixs;
   print "hmtl: $html\n";

   if( $html =~ /<meta property=\"og:image\" content=\"(http:\/\/assets.amuniversal.com\/\w*?)\" \/>/gsi) {
       $description=$1;

       push @rValue, {
           'headline'     => $title,
           'description'  => $description,
           'url'          => $url,
       };

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

   if ( $description =~ /^$/ ) {
       if( $html =~ /<picture class=\"gc-card__image.*?\"><img class=\"lazyload.*?\".*?data-srcset=\"(https:\/\/assets.amuniversal.com\/\w*?) .*?\" \/><\/picture>/gsi) {
           $description=$1;

           #print "DDD $1 DDDDDDD $description DDDDDDDDDDDDDD\n";
           #exit 1;

           push @rValue, {
               'headline'     => $title,
               'description'  => $description,
               'url'          => $url,
           };

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

   return @rValue;
}

return 1;

