if ( $this_server =~ m/^(\w+)_/ ) {
             $this_server = $1;
         }