$ perl -E 'my $x = "1234567890123456"; say $x; substr $x, 6, 6, "*"x6; say $x' 1234567890123456 123456******3456