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

##</code><code>##

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