Perl: Помощь в настройке RS

Следующий скрипт (который создан частично в образовательных целях, и именно поэтому здесь используется не только Perl†, но также awk и sed‡)...

† Версия Perl — 5.34
‡ awk и sed — это те, которые поставляются с macOS.

thisscript input.md output.txt

sed 's/[[:space:]]-[[:space:]]/---/g' $1 |
sed 's/[[:space:]]\{0,1\}—[[:space:]]\{0,1\}/---/g' |
sed 's/\\\*/†/g' |
sed 's/*///g' |
sed 's/\\\././g' |
sed 's/…/.../g' |
awk 'BEGIN{RS = "";ORS = "\n  "}1' |
fold -s -w 72 |
perl -C -lpe '
    BEGIN{ $/ = "\n  " }
    s/ (\w(?: \w)*)\r?\n/\n$1 /g;
    s/ (\w{2,}(?: \w)+[?.!])\s*$/\n$1/;
    s/ (\w+)\r?\n(?=---)/\n$1/g;
    s/^ */  /
' |
sed 's/[[:space:]]+//g' > $2

заключается в преобразовании типичного текста Markdown (учитывая, что текст достаточно простой, скажем, детской книжки о пиратах) во что-то более приятное на мой вкус.

Тест 1

Введите текст:

  Lorem ipsum dolor sit amet, consectetur adipiscing elit, satoru do a
eiusmod tempor incididunt ut labore et dolore magna aliqua. Do b c
quis autem vel eum iure reprehenderit qui in ea voluptate velit esse
---minim a b veniam, quis nostrud exercitation ullamco laboris d.
  Lorem ipsum dolor sit amet, consectetur adipiscing elit, satoru do a
eiusmod tempor incididunt ut labore et dolore magna aliqua. Do b c
quis autem vel eum iure reprehenderit qui in ea voluptate velit esse
---minim a b veniam, quis nostrud exercitation ullamco laboris d.

Выходной текст:

  Lorem ipsum dolor sit amet, consectetur adipiscing elit, satoru do
a eiusmod tempor incididunt ut labore et dolore magna aliqua. Do
b c quis autem vel eum iure reprehenderit qui in ea voluptate velit
esse---minim a b veniam, quis nostrud exercitation ullamco
laboris d.
  Lorem ipsum dolor sit amet, consectetur adipiscing elit, satoru do
a eiusmod tempor incididunt ut labore et dolore magna aliqua. Do
b c quis autem vel eum iure reprehenderit qui in ea voluptate velit
esse---minim a b veniam, quis nostrud exercitation ullamco
laboris d.

Как вы, возможно, заметили, часть Perl отвечает за перемещение любого однобуквенного слова на следующую строку. Есть и другие вещи, которые делает часть Perl, но для целей этого вопроса о Unix и Linux они не имеют значения. Нам нужно только знать, работает ли часть Perl или нет.

Тест 2

Введите текст:

Lorem ipsum dolor sit amet, consectetur adipiscing elit, satoru do a eiusmod tempor incididunt ut labore et dolore magna aliqua. Do b c quis autem vel eum iure reprehenderit qui in ea voluptate velit esse---minim a b veniam, quis nostrud exercitation ullamco laboris d.

Lorem ipsum dolor sit amet, consectetur adipiscing elit, satoru do a eiusmod tempor incididunt ut labore et dolore magna aliqua. Do b c quis autem vel eum iure reprehenderit qui in ea voluptate velit esse---minim a b veniam, quis nostrud exercitation ullamco laboris d.

Выходной текст должен быть таким же, как выходной текст первого теста, но это не так:

  Lorem ipsum dolor sit amet, consectetur adipiscing elit, satoru do a
eiusmod tempor incididunt ut labore et dolore magna aliqua. Do b c quis
autem vel eum iure reprehenderit qui in ea voluptate velit esse---minim
a b veniam, quis nostrud exercitation ullamco
laboris d.
  Lorem ipsum dolor sit amet, consectetur adipiscing elit, satoru do a
eiusmod tempor incididunt ut labore et dolore magna aliqua. Do b c quis
autem vel eum iure reprehenderit qui in ea voluptate velit esse---minim
a b veniam, quis nostrud exercitation ullamco
laboris d.

Как вы могли заметить, однобуквенные слова не были перемещены, то есть Perl не участвовал в обработке текста. Насколько я понимаю (я просто сказал, что нужно изучать Perl), это потому, что строка

BEGIN{ $/ = "\n  " }

следует отрегулировать так, чтобы он соответствовал абзацам, разделенным пробелами. Но мои попытки, такие как эта:

BEGIN{ $/ = "\n  |\n\n" }

не помогло.

Что я делаю не так?