Select Code to Download

my $xml = '<hdsso><hpid>--------</hpid><pin>ab
+cbs-hd</pin><fname>--------</fname><mname>&lt
+;/mname><lname>-------</lname><dob>-------</d
+ob><email>-------</email><ls>----------</ls&g
+t;<ws>---------</ws></hdsso>';

  use XML::Smart ;

...
  my $xml_obj_ok = new XML::Smart( $xml_obj_fix->{data} ,'html') ; 
    
  print $xml_obj_ok->data ;

<?xml version="1.0" encoding="iso-8859-1" ?>
<?meta name="GENERATOR" content="XML::Smart/1.6.9 Perl/5.006001 [MSWin
+32]" ?>
...
  <ls>----------</ls>
  <ws>---------</ws>
</root>