in reply to RegEx require

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