#!/usr/bin/perl
my $xml=qq{
<?xml version="1.0" ?>
<Links>
        <Link>
                <URL>http://www.buzzhumor.com</URL>
                <Text>Funny Videos</Text>
                <BeforeText> </BeforeText>
                <AfterText> </AfterText>
        </Link>

        <Link>
                <URL>http://www.marapets.com/arcade.php</URL>
                <Text>Games</Text>
                <BeforeText> </BeforeText>
                <AfterText> </AfterText>
        </Link>
</Links>
};

$xml=~s/\s+//g;
$xml=~s/<Links>(.*?)<\/Links>/$1/m;
my @links;
use Data::Dumper;
while($xml=~s/(<Link>.*?<\/Link>)//){
        s/(<Link>(.*?)<\/Link>)/$1/;
        my $temp={};
        ($temp->{URL})=$_=~m/<URL>(.*?)<\/URL>/;
        push @links,$temp;
}
print Dumper(@links);
print "$xml\n";