$x = 0;
while (<DATA>) {
++$x while($_ =~ /abc/g);
}