(no subject)

perl -ne 'print if /^(\w*)[AEIOU](\w*)\1[AEIOU]\2$/i' sowpods.txt
( singsong flimflam mishmash )

perl -ne 'print if /^[^AEIOU]+[AEIOU](\w{3,})[^AEIOU]+[AEIOU]\1$/i' sowpods.txt is left as an exercise for the reader.