use warnings;
use strict;
use Data::Dumper;
use XML::DOM::Lite qw( Parser XPath );

my $doc = Parser->parseFile( 'test.xml' );
my $node = $doc->selectSingleNode('quotelist/quotation[@id="q5"]/source');

print $node->firstChild()->nodeValue();