if ($referrer =~ m!^https?://(forum\.)?robidu\.de/!)
  { print "pass\n"; }
else
  { print "reject\n"; }