使用掩码字符串在perl中屏蔽字符串

my $string = "Hello, my name is John Doe and my credit card number is 1234-5678-9012-3456";
my $masked_string = substr($string, 0, 30) . "XXXX-XXXX-XXXX-XXXX";
print $masked_string;

my $string = "Hello, my name is John Doe and my credit card number is 1234-5678-9012-3456";
my $masked_string = $string;
$masked_string =~ s/\d{4}-\d{4}-\d{4}-\d{4}/XXXX-XXXX-XXXX-XXXX/g;
print $masked_string;

use Data::Mask;

my $string = "Hello, my name is John Doe and my credit card number is 1234-5678-9012-3456";
my $masked_string = mask($string, ['credit_card_number']);
print $masked_string;