if (! $escsuffix) { 
   ("http://perlcabal.org/syn/", "Perl 6 Synopses") 
} elsif ($escsuffix =~ m!^(S\d\d)(?:[:/](.*))$!) { 
   my ($page,$esc) = $2; 
   my $display = $suffix; 
   if ($suffix =~ m!^S\d\d([:/].*)$!) { 
       $display = $2; 
   }; 
   ("http://perlcabal.org/syn/S$page.html#$esc", "$page$display") 
} else { 
   # error in spec, just pass it through with a prefix 
   "http://perlcabal.org/syn/$escsuffix" 
};