Thank you so much for the quick feedback. I really appreciate it. I actually think I've solved it. I removed that tilde from the end of big If/Then/Else statement.

    else {
        print OUT join ('~', @field) . "\n";
        # print OUT join '~', @field;
        $incount = $incount + 1;
    }
[download]

It appears that this has produced the desired result. I'll know more tomorrow when we can consume the resulting file. Thanks again for everything.