If I understand you correctly, you're getting a single line now, yes? Try adding a newline to the joined string:

if (!length $fields[28]) {
    chomp @fields;
    my $str = join ',', @fields;
    print $ERR_FH "$str\n";
}
[download]