Perl script to convert entity XHTML entities