got it: # remove everything after underscore_ 259 if ( $this_server =~ m/^(\w+?)_/ ) { 260 $this_server = $1; 261 }