Select Code to Download

         s{\b(mjd[-\w]*)
            \@
...
          {($a,$b) = ($1,$2);
            $a =~ m{-subscribe$} ? "$a\@$b" : "$a-id-$id\@$b"
          }gex;

  s{(.*?)(\`([^\']*)\')}
   {$pos += length $1;
...
    $pos += $length;
    (substr($r,0,1) eq 'n') ? $& : "$1<tt>$3</tt>"
   }eg;