Select Code to Download

#!/usr/bin/perl
use warnings;
...
print $s,"\n";
my $parsed = XMLin($s);
print Dumper($parsed);

<foo><color>red</color><color>white</color><color>blue</color></foo>
$VAR1 = {
...
                       'blue'
                     ]
        };

print $_,"\n" for ( @{$parsed->{color}} )