in reply to Re: Re: Simple formatting question for credit card number
in thread Simple formatting question for credit card number

print join " ", unpack("A4A4A4A4", $number)

In Section Seekers of Perl Wisdom