Select Code to Download

    my $PERcode =  (split(/,/,$line2))[0];
    my $FDXcode =  (split(/,/,$line2))[1];
       ...

    my ($PERcode,$FDXcode,...)= split /,/,$line2;

if 
field1 ne "" 
field7 ne ""

if ($CODE1 eq $PERcode) && ($QSIGN1 eq '' or $QSIGN eq $QSIGN1) && ($A
+SIGN eq '' or $AMTSIG eq $ASIGN) ...