#!/usr/bin/perl

use strict;
use warnings;
use XML::LibXML;

my $parser = XML::LibXML->new();
my $tree = $parser->parse_fh(\*DATA);
my $root = $tree->getDocumentElement();
for ($root->findnodes('//forum')) {
    print $_->findvalue('./@value') . " " . $_->findvalue('./text()'), "\n";
}
_ _ D A T A _ _
<foren>
<forum value="1">
  http://board.perl-community.de
</forum>
<forum value="2">
  http://perlmonks.org
</forum>
</foren>