Help for this page
$x = 0; $cnt = tr/abc//; $x += $cnt;
$x = 0; while (<DATA>) { $cnt = m/abc/g; $x += $cnt; }