사실 그냥 텍 문법에 더 편합니다. 적어도 제게는.

\protected\def\segment#1{\segmenti #1^^J}
\def\segmenti{\afterassignment\segmentii\let\next= }
\def\segmentii{%
  \ifx ^^J\next
  \else
    \ifx .\next dot\else
    \ifx ?\next QM\else
      \next
    \fi\fi
    \expandafter\segmenti
  \fi
}