Select Code to Download

Select or download this

<html><head><metadata> <dc-metadata xmlns:dc="http://purl.org/metadata
+/dublin_core" xmlns:oebpackage="http://openebook.org/namespaces/oeb-p
+ackage/1.0/"> <dc:title>An Example Title</dc:title> <dc:creator role=
+"aut">Firstname Lastname</dc:creator> <dc:publisher>PerlMonks</dc:pub
+lisher> <dc:rights>Copyright &copy; 2008 AZed</dc:rights> <dc:descrip
+tion>Science/Technical. 2 words long. First published at PerlMonks, S
+eptember 2008</dc:description> <dc:language id="en-us">English</dc:la
+nguage> <dc:type>Short Story</dc:type> <dc:format>text/xml</dc:format
+> </dc-metadata> </metadata>  <metadata filepos="0000031431" href="xy
+z_metadata.htm"></metadata></head><body><p>Hi there!</p></body></html
+>

Select or download this

    $mobihtmltwig = XML::Twig->new( 
        load_DTD => 1, 
...
    print $mobihtmltwig->entity_names,"\n"; 
 
    $mobihtmltwig->parsefile($mobihtmlfile);