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

##</code><code>##

      01  234567890123456
perl -pe '$_ x=!${_.$_}++'