#!perl -p
s/(.)(.*)\1| /$2/&&redo