perl -pe '$_ x=length==16&&!/(.).*\1/'