#!/usr/bin/perl -w

use strict;

my $referrer = 'https://www.robidu.de/';

if($referrer =~ /^https?:\/\/(?!www\.)robidu\.de\//)
  {
  print "Match!\n";
  }
else
  { 
  print "No match!\n";
  }