my $temp;
my $code;
my $info;
my $count = 0;
my $length = scalar@contents;
for(my $i=0;$i<=$length;$i++) {
        chomp($contents[$i]);
        if($contents[$i] =~ /\w+=(\d+)/){
                $code = $1;
                $code1 = $code;
                chomp($contents[$i+1]);
                $info = $contents[$i+1];
                substr($info,0,5) = "";
                $temp = substr($code ,0,1);
                #print "$temp --> code\n";
                if($temp == 1) {
                        $tier = "WEB";
                }
                if($temp == 2) {
                        $tier = "APP";
                }
                if($temp == 3) {
                        $tier = "DB";
                }
                if($code1 != 0) {
                        $severity = 1;
                }
                if($code1 = 0) {
                        $severity = 5;
                }
                #print "$code1 --> $tier\n";
                $message = "<event id=\"ALERT_$tier_$code1\" source=\"APP\">";
                print "$message --messgae\n";
       }
}