$data =~ s/&/&/g;
  $data =~ s/</&lt;/g;
  $data =~ s/>/&gt;/g;
  print "<Node1>$data</Node1>\n";