Select Code to Download

A_01: xxxxxxx
xxxxxxxxxx
xxx......... 1 violation
...
B_02: xxxxxxxx
xxxxxxxxxx
xxx......... 3 violations

A number of violations = 5;
B number of violations = 3;

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

   $num = 0; 
...
}
}