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

for my $test (
    'https://www.robidu.de/', 'http://www.robidu.de/',
    'https://robidu.de/',     'https://forum.robidu.de/'
    )
{
    if ($test =~ m~^https?://(?:www\.)?robidu\.de/~) {
        print "'$test' matched\n";
    } else {
        print "'$test' didn't match\n";
    }
}