$x = 0;
$cnt = tr/abc//;
$x += $cnt;

##</code><code>##

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