unless ( length $f_zip == 5 )
        {
        
           $f_zip_error = "<font color=\"red\">Zip code cannot be blank and must be 5 digits in length.</font><BR>\n";
       $p_Terrors = $p_Terrors + 1;
    }

##</code><code>##

if ($f_state eq "null")
    {
       $f_state_error = "<font color=\"red\">State may not be blank.</
+font><BR>\n";
       $p_Terrors = $p_Terrors + 1;                                   
+    
        }                                                   
...

##</code><code>##

if (! defined $f_state)
{
...

##</code><code>##

if ($f_state eq "")
{
...