use Restricted;
RESTRICT $creditCard, sub { someMangling($_); };
print $creditCard;  # only shows last four
print UNRESTRICT($creditCard); # prints whole number
print $creditCard;  # var is restricted here as well