open pm981742.xml;

ls --indent /;

for //body/* {
    $text = string(text());
    if(  name() = "h4" ){
        $key = $text;
    }
    if( name() = "p" ){
        perl {
            push @{
                $hash{$key}
            }, $text;
        };
    }
}

perl {
    use Data::Dump;
    dd \%hash;
    undef %hash;
    undef $key;
};