Select Code to Download

use strict;
use warnings;
...
unwrap_cdata($hash);

print Dumper $hash;

sub unwrap_cdata {
  for (@_) {
...
    s/]]>//;
  }
}