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