#!perl -n0
s/^./!print$&/egm&&redo