$self->{fee_amount} = sprintf '%.2f',$fee;
if ($self->{fee_ack} eq 'N') {
$renewokay = 0;
$renewerror = q{}; # define error string to avoid runtime warnings
# in regexes below
}
-