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

   #die $html;

   while( $html =~ s/
      <item.*?>.*?
         <title>(.*?)<\/title>.*?
         <link>(.*?)<\/link>.*?
         <description>(.*?)<\/description>.*?
      <\/item>//six )
   {
      $title = $1;
      $url     = $2;
      $blurb   = $3;

      push @rValue,
      {
         'title'   => $title,
         'url'       => $url,
         'blurb'     => $blurb
      };
   }
   return @rValue;
}

return 1;

