perl -pe '$_ x= --$|' FILE