# Change 12.3% to .123
sub _percentage_to_decimal {
    my $percentage = shift;
    if (!defined $percentage)
    {
          $percentage = 0;
     }
    $percentage =~ s{%}{};
    return $percentage / 100;
}