.      newwack="rac_client_$curr_date.ack"

CL".      newwack="rac_client_$curr_date.ack"

CL".      newfile="ods_nt_cash_acc_$curr_date.csv"

CL".     IN_DIR="obc\5060"

CL".      newwack="rac_vendor_$curr_date.ack"


##</code><code>##

open (data, "<input.txt");
while (<data>) {
    if (/"(.*)"\)(.*)$/) {
        $parameter = $1;
        $var       = $2 . "\n";
    } else {
        $var = $_;
    }
    if (/;;/) { print "\n"; next; }
    print "$parameter $var";
}
close data;

##</code><code>##

BR old_file="ods.csv"
BR      newfile="ods_nt_$curr_date.csv"
BR      newwack="rac_client_$curr_date.ack"
BR      IN_DIR="odc\5060"

CL old_file="ods_cash.csv"
CL      newfile="ods_nt_cash_acc_$curr_date.csv"
CL     newwack="rac_cash_acc_$curr_date.ack"
CL     IN_DIR="obc\5060"

CUA old_file="ods_ven.csv"
CUA      newfile="ods_nt_ven_$curr_date.csv"
CUA      newwack="rac_vendor_$curr_date.ack"
CUA      IN_DIR="ofc\5060"