perl -lne '/(.).*\1/ or print'