Select Code to Download

Address_Line_1 (this is never blank)
Address_Line_2 (this could be blank)
...
City (this is never blank)
State (this is never blank)
Zip (this is never blank)

while (<INFILE>) {    
    @fields = split /\t/, $_;
...
    print OUTFILE pack ("A10", $zip);
    print OUTFILE "\r\n";
}