my $cnt = 0;
while (<DATA>) {
  $cnt++ while m/abc/g;
}
print "number of entries: $cnt\n";