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