sub find_server_instanz { my ($server_instanz) = @_; if ( $server_instanz =~ /aja1/ ) { return 'aja1'; } elsif ( $server_instanz =~ /aja2/ ) { return 'aja2'; } elsif ( $server_instanz =~ /aja3/ ) { return 'aja3'; } elsif ( $server_instanz =~ /aja4/ ) { return 'aja4'; } elsif ( $server_instanz =~ /aja5/ ) { return 'aja5'; } elsif ( $server_instanz =~ /aja6/ ) { return 'aja6'; } elsif ( $server_instanz =~ /antef1/ ) { return 'antef1'; } elsif ( $server_instanz =~ /antef2/ ) { return 'antef2'; } elsif ( $server_instanz =~ /antef3/ ) { return 'antef3'; } elsif ( $server_instanz =~ /antef4/ ) { return 'antef4'; } elsif ( $server_instanz =~ /antef5/ ) { return 'antef5'; } elsif ( $server_instanz =~ /antef6/ ) { return 'antef6'; }