in reply to formatting zipcodes

$zip = substr "0000$zip", -5; 
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

In Section Seekers of Perl Wisdom