unless ( ($zip) = ($field5 =~ /(\d{5}-\d{4})/)) { unless ( ($zip) = ($field5 =~ /(\d{5})/)) { unless ( ($zip) = ($field4 =~ /(\d{5}-\d{4})/)) { ($zip) = ($field4 =~ /(\d{5})/); } } }