while (<FH>) {
        $toggle = 1, next if /^"PER"\s*$/;
        $toggle = 0, next if /^"EMP"\s*$/;
        last if /^"EOS"\s*$/;