hillct

#!/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>//){
        my $temp={};
        for('URL','Text','BeforeText','AfterText'){
                ($temp->{$_})=$1=~m/<$_>([^<]+)<\/$_>/;
        }
        push @links,$temp;
}
print Dumper(@links);
print "$xml\n";