#!/usr/bin/perl
# your code goes here
sub findCreditCardNumbers {
   my %params = @_;
   my $text = $params{text};
 
   my $ccList = [];
 
   my $patternDetectRE = '(?:\D|^){0,4}((?:\d[\- ( )]*){14,19})(?:\D|$)';
   my $cardRE = '(?:\D|^)((?:\d[\- ( )]*){14,19})(?:\D|$)';
   my $orderIdRE = '(?:\D|^)(?:[A-Z0-9]{3}-\d{7}-\d{7})(?:\D|$)';
 
     while ($text =~ /$patternDetectRE/g) {
       my $ccnumOri = $&;
 
       # Discard stuff that looks like an order
       next if ( $ccnumOri =~ /$orderIdRE/ );
       $ccnumOri =~ /$cardRE/;
       $ccnumOri = $&;
 
       my $ccnum = join("", split(/[- ]/, $1));
 
       # Discard shipment tracking IDs. In DE, some of them start
       # with 0 and match luhn's check. tt/0024102494
       next if ( $ccnum =~ /^0/ );
 
       # Checksum ("Mod 10")
       # Add even digits in even length strings or odd digits in odd length strings.
       my $checksum = 0;
       for (my $i=(2-(length($ccnum) % 2)); $i <= length($ccnum); $i+=2) {
         $checksum += substr($ccnum, $i-1, 1);
       }
 
       # Analyze odd digits in even length strings or even digits in odd length strings.
       for (my $x=((length($ccnum) % 2)+1); $x < length($ccnum); $x+=2) {
         my $digit = substr($ccnum, $x-1, 1) * 2;
         if ($digit < 10) {
           $checksum += $digit;
         }
         else {
           $checksum += ($digit-9);
         }
       }
 
       if (($checksum % 10) == 0) {
         # Aggressively trim
         $ccnumOri =~ s/^\D*//g;
         $ccnumOri =~ s/\D*$//g;
         push (@$ccList, $ccnumOri);
       }
     }
 
   return $ccList;
 }
 
 sub filterCCFromText {
     my $text = shift;
     my $ccList = findCreditCardNumbers( text => $text );
     if (ref $ccList eq 'ARRAY' && scalar(@$ccList)) {
         foreach my $cc ( @$ccList ) {
             $text =~ s/\Q$cc\E/[CC REMOVED]/g;
         }
     }
 
     return $text;
 }
 
 while(<>){
   print filterCCFromText($_);	
 }
 

IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQpzdWIgZmluZENyZWRpdENhcmROdW1iZXJzIHsKICAgbXkgJXBhcmFtcyA9IEBfOwogICBteSAkdGV4dCA9ICRwYXJhbXN7dGV4dH07CiAKICAgbXkgJGNjTGlzdCA9IFtdOwogCiAgIG15ICRwYXR0ZXJuRGV0ZWN0UkUgPSAnKD86XER8Xil7MCw0fSgoPzpcZFtcLSAoJm5ic3A7KV0qKXsxNCwxOX0pKD86XER8JCknOwogICBteSAkY2FyZFJFID0gJyg/OlxEfF4pKCg/OlxkW1wtICgmbmJzcDspXSopezE0LDE5fSkoPzpcRHwkKSc7CiAgIG15ICRvcmRlcklkUkUgPSAnKD86XER8XikoPzpbQS1aMC05XXszfS1cZHs3fS1cZHs3fSkoPzpcRHwkKSc7CiAKICAgICB3aGlsZSAoJHRleHQgPX4gLyRwYXR0ZXJuRGV0ZWN0UkUvZykgewogICAgICAgbXkgJGNjbnVtT3JpID0gJCY7CiAKICAgICAgICMgRGlzY2FyZCBzdHVmZiB0aGF0IGxvb2tzIGxpa2UgYW4gb3JkZXIKICAgICAgIG5leHQgaWYgKCAkY2NudW1PcmkgPX4gLyRvcmRlcklkUkUvICk7CiAgICAgICAkY2NudW1PcmkgPX4gLyRjYXJkUkUvOwogICAgICAgJGNjbnVtT3JpID0gJCY7CiAKICAgICAgIG15ICRjY251bSA9IGpvaW4oIiIsIHNwbGl0KC9bLSBdLywgJDEpKTsKIAogICAgICAgIyBEaXNjYXJkIHNoaXBtZW50IHRyYWNraW5nIElEcy4gSW4gREUsIHNvbWUgb2YgdGhlbSBzdGFydAogICAgICAgIyB3aXRoIDAgYW5kIG1hdGNoIGx1aG4ncyBjaGVjay4gdHQvMDAyNDEwMjQ5NAogICAgICAgbmV4dCBpZiAoICRjY251bSA9fiAvXjAvICk7CiAKICAgICAgICMgQ2hlY2tzdW0gKCJNb2QgMTAiKQogICAgICAgIyBBZGQgZXZlbiBkaWdpdHMgaW4gZXZlbiBsZW5ndGggc3RyaW5ncyBvciBvZGQgZGlnaXRzIGluIG9kZCBsZW5ndGggc3RyaW5ncy4KICAgICAgIG15ICRjaGVja3N1bSA9IDA7CiAgICAgICBmb3IgKG15ICRpPSgyLShsZW5ndGgoJGNjbnVtKSAlIDIpKTsgJGkgPD0gbGVuZ3RoKCRjY251bSk7ICRpKz0yKSB7CiAgICAgICAgICRjaGVja3N1bSArPSBzdWJzdHIoJGNjbnVtLCAkaS0xLCAxKTsKICAgICAgIH0KIAogICAgICAgIyBBbmFseXplIG9kZCBkaWdpdHMgaW4gZXZlbiBsZW5ndGggc3RyaW5ncyBvciBldmVuIGRpZ2l0cyBpbiBvZGQgbGVuZ3RoIHN0cmluZ3MuCiAgICAgICBmb3IgKG15ICR4PSgobGVuZ3RoKCRjY251bSkgJSAyKSsxKTsgJHggPCBsZW5ndGgoJGNjbnVtKTsgJHgrPTIpIHsKICAgICAgICAgbXkgJGRpZ2l0ID0gc3Vic3RyKCRjY251bSwgJHgtMSwgMSkgKiAyOwogICAgICAgICBpZiAoJGRpZ2l0IDwgMTApIHsKICAgICAgICAgICAkY2hlY2tzdW0gKz0gJGRpZ2l0OwogICAgICAgICB9CiAgICAgICAgIGVsc2UgewogICAgICAgICAgICRjaGVja3N1bSArPSAoJGRpZ2l0LTkpOwogICAgICAgICB9CiAgICAgICB9CiAKICAgICAgIGlmICgoJGNoZWNrc3VtICUgMTApID09IDApIHsKICAgICAgICAgIyBBZ2dyZXNzaXZlbHkgdHJpbQogICAgICAgICAkY2NudW1PcmkgPX4gcy9eXEQqLy9nOwogICAgICAgICAkY2NudW1PcmkgPX4gcy9cRCokLy9nOwogICAgICAgICBwdXNoIChAJGNjTGlzdCwgJGNjbnVtT3JpKTsKICAgICAgIH0KICAgICB9CiAKICAgcmV0dXJuICRjY0xpc3Q7CiB9CiAKIHN1YiBmaWx0ZXJDQ0Zyb21UZXh0IHsKICAgICBteSAkdGV4dCA9IHNoaWZ0OwogICAgIG15ICRjY0xpc3QgPSBmaW5kQ3JlZGl0Q2FyZE51bWJlcnMoIHRleHQgPT4gJHRleHQgKTsKICAgICBpZiAocmVmICRjY0xpc3QgZXEgJ0FSUkFZJyAmJiBzY2FsYXIoQCRjY0xpc3QpKSB7CiAgICAgICAgIGZvcmVhY2ggbXkgJGNjICggQCRjY0xpc3QgKSB7CiAgICAgICAgICAgICAkdGV4dCA9fiBzL1xRJGNjXEUvW0NDIFJFTU9WRURdL2c7CiAgICAgICAgIH0KICAgICB9CiAKICAgICByZXR1cm4gJHRleHQ7CiB9CiAKIHdoaWxlKDw+KXsKICAgcHJpbnQgZmlsdGVyQ0NGcm9tVGV4dCgkXyk7CQogfQo=

VGVzdCBDcmVkaXQgQ2FyZCBBY2NvdW50IE51bWJlcnMKCldoaWxlIHRlc3RpbmcsIHVzZSBvbmx5IHRoZSBjcmVkaXQgY2FyZCBudW1iZXJzIGxpc3RlZCBoZXJlLiBPdGhlciBudW1iZXJzIHByb2R1Y2UgYW4gZXJyb3IuCgpFeHBpcmF0aW9uIERhdGUgbXVzdCBiZSBhIHZhbGlkIGRhdGUgaW4gdGhlIGZ1dHVyZSAodXNlIHRoZSBtbXl5IGZvcm1hdCkuClRlc3QgQ3JlZGl0IENhcmQgQWNjb3VudCBOdW1iZXJzCgpDcmVkaXQgQ2FyZCBUeXBlCgkKCkNyZWRpdCBDYXJkIE51bWJlcgoKQW1lcmljYW4gRXhwcmVzcwoJCgozNzgyODIyNDYzMTAwMDUKCkFtZXJpY2FuIEV4cHJlc3MKCQoKMzcxNDQ5NjM1Mzk4NDMxCgpBbWVyaWNhbiBFeHByZXNzIENvcnBvcmF0ZQoJCgozNzg3MzQ0OTM2NzEwMDAKCkF1c3RyYWxpYW4gQmFua0NhcmQKCQoKNTYxMDU5MTA4MTAxODI1MAoKRGluZXJzIENsdWIKCQoKMzA1NjkzMDkwMjU5MDQKCkRpbmVycyBDbHViCgkKCjM4NTIwMDAwMDIzMjM3CgpEaXNjb3ZlcgoJCgo2MDExMTExMTExMTExMTE3CgpEaXNjb3ZlcgoJCgo2MDExMDAwOTkwMTM5NDI0CgpKQ0IKCQoKMzUzMDExMTMzMzMwMDAwMAoKSkNCCgkKCjM1NjYwMDIwMjAzNjA1MDUKCk1hc3RlckNhcmQKCQoKNTU1NTU1NTU1NTU1NDQ0NAoKTWFzdGVyQ2FyZAoJCgo1MTA1MTA1MTA1MTA1MTAwCgpWaXNhCgkKCjQxMTExMTExMTExMTExMTEKClZpc2EKCQoKNDAxMjg4ODg4ODg4MTg4MQoKVmlzYQoJCgo0MjIyMjIyMjIyMjIyCgpOb3RlIDogRXZlbiB0aG91Z2ggdGhpcyBudW1iZXIgaGFzIGEgZGlmZmVyZW50IGNoYXJhY3RlciBjb3VudCB0aGFuIHRoZSBvdGhlciB0ZXN0IG51bWJlcnMsIGl0IGlzIHRoZSBjb3JyZWN0IGFuZCBmdW5jdGlvbmFsIG51bWJlci4KClByb2Nlc3Nvci1zcGVjaWZpYyBDYXJkcwoKRGFua29ydCAoUEJTKQoJCgo3NjAwOTI0NDU2MQoKRGFua29ydCAoUEJTKQoJCgo1MDE5NzE3MDEwMTAzNzQyCgpTd2l0Y2gvU29sbyAoUGF5bWVudGVjaCkKCQoKNjMzMTEwMTk5OTk5MDAxNg==

Test Credit Card Account Numbers

While testing, use only the credit card numbers listed here. Other numbers produce an error.

Expiration Date must be a valid date in the future (use the mmyy format).
Test Credit Card Account Numbers

Credit Card Type
	

Credit Card Number

American Express
	

378282246310005

American Express
	

371449635398431

American Express Corporate
	

378734493671000

Australian BankCard
	

5610591081018250

Diners Club
	

30569309025904

Diners Club
	

38520000023237

Discover
	

6011111111111117

Discover
	

6011000990139424

JCB
	

3530111333300000

JCB
	

3566002020360505

MasterCard
	

5555555555554444

MasterCard
	

5105105105105100

Visa
	

4111111111111111

Visa
	

4012888888881881

Visa
	

4222222222222

Note : Even though this number has a different character count than the other test numbers, it is the correct and functional number.

Processor-specific Cards

Dankort (PBS)
	

76009244561

Dankort (PBS)
	

5019717010103742

Switch/Solo (Paymentech)
	

6331101999990016