Perl library to generate and validate 'CouponCode' strings