To generate XML, your source data also needs to be structured.

Your data currently appears to be close to YAML format, so if you did convert it to YAML, you could do something like this: 

use strict;
use warnings;
use YAML;

my $stuff = <<YAML;
---
ABC:
 DEF:
  - GHI
YAML

my $perl_structure = Load $stuff;

printit ($perl_structure);

sub printit{
  my $this = shift;
  if (ref $this eq "" ){
     print $this;
     return;
  }
  if (ref $this eq "ARRAY"){
     print "<value>";
       printit ($_) for @$this;
     print "</value>\n";
     return;
  }
  #print "Got " . ref ($this) . "\n";
  for my $k (keys %$this){
     print "<$k>\n";
     printit($_) for $this->{$k};
     print "</$k>\n";
  }
}

[download]
Output: 
<ABC>
<DEF>
<value>GHI</value>
</DEF>
</ABC>

[download]
However - if your input is even slightly more complicated than this, I would recommend using a "real" XML generator module. (XML::Simple if you dont have experience with these).

            “PHP is a minor evil perpetrated and created by incompetent amateurs, whereas Perl is a great and insidious evil perpetrated by skilled but perverted professionals.”
        ― Jon Ribbens

In reply to Re: how to convert tab separated text lines into xml files by NetWallah
in thread how to convert tab separated text lines into xml files by osprofi

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.