diff --git a/dcd.pl b/dcd.pl
index 8464e5813824b54b2cc54be19440a2710b54d17a..4db3c83765b4ac75f272b752b743ce4ee92ead5d 100755
--- a/dcd.pl
+++ b/dcd.pl
@@ -374,7 +374,9 @@ sub get_all_urls
 sub split_doi_string
 {
   my $doi= shift;  # e.g. 10.25365/phaidra.1
-  my $id_separator= shift || '.';
+  my $id_separator= shift;
+  
+  $id_separator= qr(\.) if (!$id_separator || $id_separator eq '.');
 
   my ($pfx, $sfx)= split ('/', $doi, 2);
   my ($ns, $nr)= split ($id_separator, $sfx, 2);