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