use Business::CreditCard::Obscure qw(obscure); my $obscure = obscure(cardnum = '123456789012');