/^https?:\/\/.*?\.?(?<!www\.)robidu\.de\//;

##</code><code>##

my $r = 'https://forum.robidu.de/';

my @allowed = qw(ww2 forum);
my $re = join('|', @allowed);

print $r =~ /^https?:\/\/$re\.?robidu\.de\//;