if ($col3=~'D'){ 
$result=-1*CALCUL_DIV($col1,$col2); 
} 
else {$result = CALCUL_DIV($col1,$col2);}