$s =~ s{
  (?<! \d) ($n)   (?{   order($^N) })
  (?: $sep ($n) (?(?{ ! order($^N) }) (*F))){2,}
  }
  {$1-$2}xmsg;