#!/usr/bin/perl -w
use strict;
use XML::Twig;

XML::Twig->new( twig_roots => { dl => sub { $_->subs_text( qr/(.+?)\s+(.+?)\n/, 
                                                           '&elt(first => $1)&elt( second => $2)'
                                                         )
                                              ->print;
                                          },
                              },
                 twig_print_outside_roots => 1,
               )
           ->parse( \*DATA);

__DATA__
<c>
<dl>
ABC  CDE
add  eerwe
sdfsdfs  erewrwe
</dl>
</c>