$source_file = "tmp.txt"; 
$dest_xml_file = "my.xml"; 
 
#Check existance of root directory 
open(SOURCE_FILE, "$source_file") || die "Fail to open file $source_file"; 
open(DEST_XML_FILE, ">$dest_xml_file") || die "Coult not open output file $dest_xml_file"; 
 
$x = 0; 
 
print DEST_CS_FILE  "<!-- from tmp.txt-->\n"; 
while (<SOURCE_FILE>)    
{ 
    &ConstantParseAndPrint; 
 
} 
 
sub ConstantParseAndPrint 
{ 
    if ($x == 0) 
    { 
 
        if(/^\s*(constant)\s*(fixup|\/\*fixup\*\/|)\s*(private|)\s*(\w+)\s+=\s+<([a-zA-Z0-9]+)\s+([a-zA-Z0-9])+>\s*(\/\*\s*(.*?)\s*\*\/|)(\r|\n|\s)/) 
                { 
                    $name1 = $1; 
                    $name2 = $2; 
                    $name3 = $3; 
                    $name4 = $4; 
                    $name5 = $5; 
                    $name6 = $6; 
                    $name7 = $7; 
                    printf DEST_XML_FILE "\t\t$name1"; 
                    printf DEST_XML_FILE "\t\t$name2"; 
                    printf DEST_XML_FILE "\t\t$name3"; 
                    printf DEST_XML_FILE "\t\t$name4"; 
                    printf DEST_XML_FILE "\t\t$name5"; 
                    printf DEST_XML_FILE "\t\t$name6"; 
                    printf DEST_XML_FILE "\t\t$name7"; 
                    $x = 1; 
        } 
    } 
}