1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 etc......................................... (xxxxxxs substitute real words) ##

##


sub deal_with_xml_line_by_line($){
    
    $final_out = "new_out_again.txt";
    open (OUTPUT_SLIMED, "+>>$final_out");
    
    my ($XML_line) = @_;
    
    $XML_class_node_X_old = $XML_class_node_X;
    $XML_class_first_node_old = $XML_class_first_node;

    if ($XML_process_line =~ /^(\d{1,10})([\%|\<].{1,1000}\>)/){
 print "\nhereF\n";
 print "\n$1\n";
 #exit;
 $XML_class_node_X = "$1.$2";
 
 if ($XML_class_node_X_old == $XML_class_node_X){
     #do nothing 
 }
 else{
     print OUTPUT_SLIMED "$XML_class_node_X\n";
     return $XML_class_node_X;
 }
    }
    if ($XML_process_line =~ /^(\d{1,10})(\s[\%|\<].{1,1000}\>)/){
 print "\nhereF\n";
 print "\n$1.$2\n";
 #exit;
 $XML_class_first_node = $1.$2; 
 # print ":$XML_class_fist_node\n";
 
 if ($XML_class_first_node_old == $XML_class_first_node){
     #do nothing 
 }
 else{
     print OUTPUT_SLIMED "$XML_class_first_node\n";
     return $XML_class_first_node;
 }
    }
}

##