if (defined $quota) {
    my $factor = chop $quota ;
    my $softquota = $quota*$QuotaConversionFactor{uc($factor)} ;
    ...