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"
}
}