open FILE, $filename or die $!;

##</code><code>##

while ( <FILE> )
{
    $ct += tr/;//;
}
print $ct;