use LWP::Simple; 
$seite=get("http://www.dlib.org/rss/dlib.rss");

$seite=~ s/&.+?;/_/g; 
#entfernt alle mit &-beginnenden HTML-Sonderzeichen und ersetzt diese durch einen Unterstrich ( _ )

$stelle=0;
$anfang=index($seite,"</channel>",$stelle); 
#hier soll das Ausschneiden anfangen

while ($anfang>=0) {
      $ende=index($seite,"</rdf:RDF>",$anfang);
	  $item=substr($seite,$anfang,$ende-$anfang);

	  my @article = ($item =~ m/<title>(.+)<\/title>/g);
	  foreach my $x (@article) {print "TI:$x\n\n " };
	  
	  my @link = ($item =~ m/<link>(.+)<\/link>/g);
	  foreach my $x (@link) {print "LI:$x\n\n " };
	  
	  my @description = ($item =~ m/<description>(.+) by/g);
	  foreach my $x (@description) {print "PT:$x\n\n " };
	  	 
	  $anfang=index($seite,"<item>",$anfang+1); 
          #Schleife um das ganze für den ganzen Quelltext zu machen!
}