Select Code to Download

<script type="ApplicationPerspective" version="5.3.13.179" recorder="8
+.6.59.276" sav="25" guid="296A95D0-E8B6-4989-AA21-126796A3AD3F" xmlns
+="http://www.keynote.com/namespaces/tstp/script">
    <name>
        <![CDATA[GT Amadeus]]>
...
            <description>
                <![CDATA[]]>
            </description>

#!/usr/bin/perl

use XML::Twig;
...
my $twig= new XML::Twig(TwigRoots => {script/name' => 1});
$twig->parsefile($file);
$twig->print;