Select Code to Download

use Business::CreditCard::Obscure qw(obscure);

...

print obscurevisa('4444333322221111');  # 4444********1111
print obscurediner('444333222111');  # 444******111

package Business::CreditCard::Obscure;

...
}

1;