#!/usr/bin/perl
use warnings;
use strict;

use XML::Simple;
use Data::Dumper;

my $s = '<foo><color>red</color><color>white</color><color>blue</color></foo>';
print $s,"\n";
my $parsed = XMLin($s);
print Dumper($parsed);