if (($site =~ "l",) || ($site =~ "c") || ($site =~ "n")
      || ($site =~ "w"))

##</code><code>##

if ( $site =~ /[lcnw]/ )

##</code><code>##

if ( $site eq "l" or $site eq "c" or $site eq "n" 
     or $site eq "w")

##</code><code>##

elsif ($site =~ /wf/)

##</code><code>##

if ($site =~ /^([lcnh]|wf)$/) { # one block handles all cases
    $site = "l" unless ( $site =~ /(h|wf)/ );
    $server = "yos.$site.com";
    # and so on
}