sub convert_to_dollar_format {
        my $value = shift;
        $value   += 0;
        # cheap error checking.  You'll want something more robust
        return $value =~ /[^\d.]/ ? 0 : sprintf( '$%.2f', $value );
    }