use File::Slurp; #my favourite module :)
my $cdata = read_file("foo.xml");
$cdata =~ s/^.*?(<!\[CDATA\[.*?\]\]>).*$/$1/;