use strict;
use warnings;
use Data::Dumper;

my $var = '<Country>&lt;![CDATA[US]]&gt;</Country>';
unwrap_cdata($var);
print $var."\n";

my $hash = { america => '<Country>&lt;![CDATA[US]]&gt;</Country>',
             europe => ['<Country>&lt;![CDATA[IT]]&gt;</Country>','<Country>&lt;![CDATA[UK]]&gt;</Country>'],
           };

print Dumper $hash;

unwrap_cdata($hash);

print Dumper $hash;

##</code><code>##

sub unwrap_cdata {
  for (@_) {
    eval { unwrap_cdata(@$_); 1 } and next;
    eval { unwrap_cdata(values %$_); 1 } and next;
    s/<!\[CDATA\[//;
    s/&lt;!\[CDATA\[//;
    s/]]>//;
    s/]]&gt;//;
  }
}