#!perl -lnaF//
$"=',';map{print if!/(.).*\1/}glob"{@F}"x@F # 50 Zeichen