Hi All,  I am looking for suggestions or to be pointed in the right direction on using config files to process lines of perl code.  I am familiar with using config modules but I am looking to take it a step deeper.   What I would like to do is have a perl script look to a config file in order to decide how to process a record in a text file.

Example:
I need to map a code from a record to another code.
if Trancode0 eq ABC than make Trancode XYZ.  Below is how I do it in the script but want to avoid having to keep changing the script every time I need to create a new translation mapping.  

##</code><code>##

if (($TRANCODE0 =~m/(TSP|KSP)/) && ($QUANTITY ne '00000000.00000') && ($QSIGN eq "+") && ($KEYCODE =~m/(10|11|20|60)/)){
    $TRAN_CODE = "RCV";
}

if (($TRANCODE0 =~m/(TSP|KSP)/) && ($QSIGN eq "-") && ($KEYCODE =~m/(10|11|20|60)/)){
    $TRAN_CODE = "DLV";
}

if (($TRANCODE0 =~m/(TSP|KSP)/) && ($QUANTITY eq '00000000.00000')  && ($KEYCODE =~m/(10|11|20|60)/)){
    $TRAN_CODE = "DLV";
}

if (($TRANCODE0 eq "EXP") && ($SECTYPE eq "8")){
   $TRAN_CODE = "OPTEXP";
}

if (($TRANCODE0 eq "EXP") && ($SECTYPE ne '8')){
   $TRAN_CODE = "DLV";
}