#!/usr/bin/perl
use strict;
use warnings;

use LWP::Simple qw(get);
use XML::RSS;
#use Data::Dumper;

my $xml_data=get("http://www.dlib.org/rss/dlib.rss");

my $rss = XML::RSS->new;
$rss->parse($xml_data);
#print Dumper($xml_ref);

#Liste mit den gesuchten Einträgen 
my @items=();

for my $item (@{$rss->{item}})
{
  # nur wenn "description" gesetzt ist.
  if($item->{description})
  {
    my %values=();
    $values{title}=$item->{title};
    $values{link}=$item->{link};

    $values{desc}='';
    $values{desc}=$1 if( and $item->{description}=~m/^(.+?)\s+by/);

    # Referenz auf "%values" an das Array anhängen;
    push(@items,\%values);
  }
}

for my $item (@items)
{
  print "Title        = ".$item->{title}."\n";
  print "Link         = ".$item->{link}."\n";
  print "Beschreibung = ".$item->{desc}."\n";
  print '#'x80,"\n";
}