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