パート分けされた歌詞からパート情報を削除するワンライナー

sed -re 's/（.+）(.)/\1/g' atapon.txt

こういう文字列置換，初めは慣れなくて perl -mutf8 -nle 's/（.+）(.)/\1/g' -p atapon.txt とかやっちゃうけど，これぐらいならわざわざ Perl を使うまでもなくて，sed で十分という気づきを得られる．

-r を付けると拡張正規表現が有効になり，これで我々にとって直感的な後方参照が有効になる．

以下は試行錯誤の過程です．

perl -mutf8 -nle '$_=~s/（.+）(.)/\1/g;print;' atapon.txt

— うたがわきき🔰💊 (@utgwkk) 2017年3月26日

perl -mutf8 -nle 's/（.+）(.)/\1/g;' -p atapon.txt まで短くできる

— うたがわきき🔰💊 (@utgwkk) 2017年3月26日

sed でよくない？？？

— うたがわきき🔰💊 (@utgwkk) 2017年3月26日

sed でよくない，と思ったけど，等価な置換の書き方が分からない……

— うたがわきき🔰💊 (@utgwkk) 2017年3月26日

sed -re 's/（.+）(.)/\1/g' atapon.txt でよかった

— うたがわきき🔰💊 (@utgwkk) 2017年3月26日