Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $zip = '99999';
...
 print qq{'$zip' not found} if not defined $zip_match;
"
'99999' not found

c:\@Work\Perl\monks>perl -wMstrict -le
"my $zip = '01234';
...
   }
"
'01234' located in 'City Two'