if ($creditcard =~ /^\d{16}$/) ...