my $marker = '&g';
  my $N = 8;
  my $n1 = $N-2;
  /$marker(?!$marker)(?:.(?!$marker)){$n1}.{2}/s