perl -pe'$_ x=!$$_++'