(no subject)
Sep. 17th, 2010 12:52 pm![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
pseudomonasperl -ne 'print if /^(\w*)[AEIOU](\w*)\1[AEIOU]\2$/i' sowpods.txt
perl -ne 'print if /^[^AEIOU]+[AEIOU](\w{3,})[^AEIOU]+[AEIOU]\1$/i' sowpods.txt is left as an exercise for the reader.
AA AE AERIER AGOG AI AKEAKE ANAN ANICONIC ANON ARAARA ARAR ASSESS ATAATA ATLATL BABA BABE BABU BARBER BEEBEE BERIBERI BOBA BONBON BOOBOO BOUBOU BUBA BUBO BUBU BUIBUI BULBEL BULBIL BULBUL BULNBULN CACA CANCAN CARACARA CASCOS CECA CHICHA CHICHI CHIFFCHAFF CHINACHINA CHIQUICHIQUI CHITCHAT CHOCHO CHOWCHOW CIRCAR CISCOS COCA COCCIC COCO COOCOO COROCORE COROCORO COUSCOUS CRISSCROSS CUSCUS DADA DADDED DADO DIDO DIKDIK DILLYDALLY DINGDONG DIVIDIVI DODDED DODO DOODOO DUDE DUMDUM EA EE EERIER ESES ETAT FIFE FIFI FLIMFLAM FLIPFLOP FROUFROU FULFIL FURFUR GAGA GAGE GEWGAW GIGA GOGO GORGER GREEGREE GRIGRI GRISGRIS GRUGRU GUGA GUITGUIT HAHA HASHES HINAHINA HISHES HOHA HOTSHOTS HUHU HUMHUM HUSHES IMAM INOSINES INTENT IO ISOS JIGJIG JIMJAM JUJU KAIKAI KAKA KAKI KAMOKAMO KAVAKAVA KAWAKAWA KHUSKHUS KIEKIE KIKE KINAKINA KNICKKNACK KOHEKOHE KORKIR KOUSKOUS KUKU KUMIKUMI LABLAB LADLED LAKELIKE LAVALAVA LIBLAB LILO LISLES LOGLOG LOSSLESS LULU MAHIMAHI MAMA MANGEMANGE MAOMAO MATAMATA MEEMIE MEME MEMO MIME MINGIMINGI MIROMIRO MISHMASH MISHMOSH MOKOMOKO MOME MOMI MOTMOT MULMUL MUMU MURMUR MUUMUU NANA NANE NEINEI NENE NICKNACK NIFFNAFF NINE NONA NONE NONI OE OI ONGAONGA OO OSES OU PALPAL PAPA PAPE PARAPARA PAWPAW PEPO PINGPONG PIOPIO PIPA PIPE PIPI PIUPIU POMPOM POPE PULPAL PUPA PUPU QUINAQUINA RARE REPEREPE REWAREWA RICKRACK RICRAC RIFFRAFF RIPRAP RIRORIRO RORE RURU SARSAR SASSES SEMSEM SESE SESSES SHILLYSHALLY SHISHA SHWESHWE SINGSONG SISSES SLIPSLOP SNIPPERSNAPPER SOSSES SUDSED SUSSES SUSU TACTIC TARTAR TARTER TASTES TATE TATU TESTES TESTIS TETE TICKTACK TICKTOCK TICTAC TICTOC TIPTOP TITE TITI TOETOE TOITOI TOKOTOKO TOTE TRICKTRACK TRICTRAC TSETSE TSOTSI TUATUA TUCOTUCO TUCUTUCO TUCUTUCU TUTU TZETZE UNKINK UNTENT USES VALVAL VIVA VIVE VIVO VULVAL WARTWORT WAWA WAWE WEEWEE WIGWAG ZEZE ZIGZAG ZOOZOO
perl -ne 'print if /^[^AEIOU]+[AEIOU](\w{3,})[^AEIOU]+[AEIOU]\1$/i' sowpods.txt is left as an exercise for the reader.
no subject
Date: 2010-09-17 03:54 pm (UTC)