I know this is somewhat off-topic. You should consider using the module Regexp::Common::CC for credit card validation. Unfortunately, the SYNOPSIS is incomplete. You have to check the source code for the complete list of supported credit cards.