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
--------
-------
-------
-------
----------
---------