if ($zip !~ /^\d+(\-\d{4})?$/)
{
     $error{zip} = "Invalid postal code.";
}