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

for my $item (@{$rss->{items}})

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

use LWP::Simple qw(get);
use XML::RSS;
use HTML::TreeBuilder;
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($rss);

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

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

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

    # welche Elemente werden noch gebraucht?
    $values{autor}='';
    $values{datum}='';

    my $html_data=get($item->{link});
    my $html = HTML::TreeBuilder->new();
    $html->parse($html_data);

    #...
    # Lese die Daten, die du haben willst
    # keine Ahnung wo du sie suchst und was du haben willst...
    #...

    $html->delete();

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

for my $item (@items)
{
  print Dumper($item);
}