while(<fname>){
       $/="\n--\n";
       ($_ =~ /ABC SET/)?$values++:next;
     }