#!/usr/bin/perl 
 
use strict;
use XML::Simple;

my $xml= XMLin( \*DATA);
my $artikle= $xml->{artikle};
$artikle=~ s/^\s*//s;
$artikle=~ s/\s*$//s;
print "article: $artikle\n";

__DATA__
<doc>                       <!-- you still need to wrap your XML in a single root element -->
   <artikle>
   <![CDATA[Test tittle ]]>
   </artikle>
   <ingres>
   <![CDATA[Test ingres ]]>
   </ingres>
   <url>
   <![CDATA[Test url ]]>
   </url>
</doc>

##</code><code>##

<doc>
   <artikle><![CDATA[Test tittle ]]></artikle>
   <ingres><![CDATA[Test ingres ]]></ingres>
   <url><![CDATA[Test url ]]></url>
</doc>
##</code><code>##

#!/usr/bin/perl 
 
use strict;
use XML::Simple;
use Data::Dumper;

my $xml= XMLin( \*DATA);
print Dumper( $xml);

__DATA__
<my> document here, oh </my>

##</code><code>##

#!/usr/bin/perl 
 
use strict;
use XML::Simple;
use Data::Dumper;

my @fields= qw( title ingres url);

my $xml= XMLin( \*DATA);

foreach my $article (@{$xml->{artikle}})               # $xml is an array of hashes, each hash is an article
  { foreach my $field (@fields)                        # the key/value pairs are element => content
      { print "$field: ", $article->{$field}, "\n"; }
    print "\n";
  }

__DATA__
<doc>
   <artikle>
     <title><![CDATA[Test tittle ]]></title>
     <ingres><![CDATA[Test ingres ]]></ingres>
     <url><![CDATA[Test url ]]></url>
   </artikle>
   <artikle>
     <title><![CDATA[Test tittle 2]]></title>
     <ingres><![CDATA[Test ingres 2]]></ingres>
     <url><![CDATA[Test url 2]]></url>
   </artikle>
</doc>