use strict;
use warnings;

use Text::CSV_XS;

open my $h_in, "<", "S:/RFax-L7.txt"  or die "RFAX: $!";
open my $h_sr, ">", "S:/sorted.csv"   or die "Sorted: $!";
open my $h_rj, ">", "S:/rejected.csv" or die "Rejected: $!";

my $csv_in  = Text::CSV_XS->new ({ binary => 1 });
my $csv_out = Text::CSV_XS->new ({ binary => 1, eol => "\r\n" });

while (my $row = $csv_in->getline ($h_in)) {
    if ($row->[9] == 32) {
        $csv_out->print ($h_sr, $row)
        }
    else {
        $csv_out->print ($h_rj, $row)
        }
    }
$csv_in->eof or $csv_in->error_diag ();
close $_ for $h_in, $h_sr, $h_rj;