<?xml version="1.0"?><message><sbr version="1.0"><appid>Messaging</appid><custid>adm_root_provider</custid><callid>032147109</callid> <trmid>5</trmid><portid>16</portid> <callstart>12/11/2007 15:16:46</callstart><callend>12/11/2007 15:17:30</callend><chstart>12/11/2007 15:16:47</chstart><chend>12/11/2007 15:17:30</chend><type>1</type><status>0</status><called>
</called><callreturnused></callreturnused><nonsubused>0</nonsubused></sbr></message><?xml version="1.0"?>

#! /usr/local/bin/perl 

my $c = 0;

open(OUTPUT, ">>", "result.txt");
#chomp(@inputfayl = `cat file.txt`);
chomp(@inputfayl = `ls -lrt | awk '/SMSR/ { before = curr; curr = \$9 }END{ print before }'`);
#system("echo $inputfayl >> newfile.txt");
# if (compare("newfile.txt","oldfile.txt") == 0) {
   while (<@inputfayl>) {
      if (/SMSR/) {
        $inputfayl=$_;
        system("echo $inputfayl >> newfile.txt");
          use File::Compare;
           if (compare("newfile.txt","oldfile.txt") == 1) {
          print OUTPUT "$inputfayl ##########################################################################################\n";
          &processi; 
      }
      else {
      print "wala";
      system("rm newfile.txt");

    }
    }
}
sub processi { 
open inputfayl or die "Cannot open file for read :$!";

while(<inputfayl>) {
  chomp;
    my @arr = split(/></);
    foreach (@arr) {
    if( /xml version/ ) {
      $c++;
      print OUTPUT "\n";
    }
    if( />/ && /</ ) {
      if( $c == 1 ) {
        s/(.*)>(.*)<.*$/\1|\2/;
        my($tmp1, $tmp2) = split(/\|/);
        $data .= (" " . $tmp2);
        printf OUTPUT "%s ", $tmp1;
      }
      else {
        s/(.*)>(.*)<.*$/\2/;
        printf OUTPUT "%s ", $_;
      }
    }
  }
  print OUTPUT "\n";
  print OUTPUT "$data\n" if( /xml version/i );
}

close inputfayl;

system("rm oldfile.txt");
system("mv newfile.txt oldfile.txt");
#exit 0
}
exit 0