A_01: xxxxxxx
xxxxxxxxxx
xxx......... 1 violation

A_02: xxxxxxx
xxxxxxxxxx
xxx......... 4 violations
B_02: xxxxxxxx
xxxxxxxxxx
xxx......... 3 violations 
##</code><code>##

A number of violations = 5;
B number of violations = 3; 
##</code><code>##

  open(DATA, "<abc.txt, $!";

   $num = 0; 
   
   while (<DATA>){
  
   while (<DATA>){
   if ( (($_ =~ /violation/) || ($_ =~ /violations/)))  {
          if ($_ =~ /(\d+)/) {
          $num = $num + $1;
         }
     }
   
}
   
if ($num == 0) {
print "DM0$x ....... CLEANED\n"
} else {
print "DM0$x ....... Total = $num violations\n"
}
}