my $string = '<Prompt><![CDATA[Please ... question).  ]]></Prompt>';
my ($extract) = $string =~ m{ \[CDATA\[ (.*) ]]> }xms;