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