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