$semi_count += tr /;// - (()=/;\s*End/gi) for <FILE>;