my $xml = '<hdsso><hpid>--------</hpid><pin>abcbs-hd</pin><fname>--------</fname><mname></mname><lname>-------</lname><dob>-------</dob><email>-------</email><ls>----------</ls><ws>---------</ws></hdsso>'; #### use XML::Smart ; my $bad_xml = '<hdsso><hpid>--------</hpid><pin>abcbs-hd</pin><fname>--------</fname><mname></mname><lname>-------</lname><dob>-------</dob><email>-------</email><ls>----------</ls><ws>---------</ws></hdsso>'; my $xml_obj_fix = new XML::Smart( "$bad_xml" ,'html') ; my $xml_obj_ok = new XML::Smart( $xml_obj_fix->{data} ,'html') ; print $xml_obj_ok->data ; #### <_1/> -------- abcbs-hd -------- ------- ------- ------- ---------- ---------