#!/usr/bin/perl
use strict;
use warnings;

sub finde_server_instanz {
	my ($instanz) = @_;

	# fuer die tipp-freudigen
	my $return =
	    $instanz =~ /aja1/ ? 'aja1' 
	  : $instanz =~ /aja2/ ? 'aja2'
	  : $instanz =~ /aja3/ ? 'aja3'
	  : undef;

	return $return;
}

# ODER

sub finde_server_instanz2 {
	my ($instanz) = @_;

	# fuer die tipp-faulen
	my $return =
	    $instanz =~ /(aja\d)/ ? $1
	  : $instanz =~ /(antef\d)/ ? $1
	  : undef;

	return $return;
}

# ODER
#
sub finde_server_instanz3 {
	my ($instanz) = @_;

	# fuer die anderen
	my $return =
	    $instanz =~ /((?:aja|antef)\d)/ ? $1
	  : undef;
    
	return $return;
}