![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
(no subject)
Sep. 17th, 2010 12:52 pmperl -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.
( 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.