Extracting the second letter from every ninth word in the Hello Internet (Last Jedi) Christmas Special

hello_internet_code.R

pacman::p_load(tidyverse, tidytext)
read_html("http://podcastsearch.david-smith.org/episodes/2003") %>% 
  html_nodes("p") %>% 
  html_text() %>% 
  str_squish() %>%
  str_trim() %>% 
  str_remove("◼ ► ") %>% 
  enframe(NULL, "line_text") %>%
  rownames_to_column("line_no") %>% 
  unnest_tokens(word, "line_text") %>% 
  slice(seq(1, nrow(.), by = 9)) %>% 
  mutate(letter2 = str_sub(word, 2, 2)) %>% 
  pull(letter2) %>% 
  str_c(collapse = "")

second_letters.txt

otaenhooshhoahohhorehailbohhneholotztttnttotoohoanihhlulooaeailefhohiuifinnofaohuitaihihgonyoynhhnooeeeafnshhhhuieearbohayeaamunoahoruhnonaaettraeohehatyoaheuotheoehofaohvooiovhynhaseymvnahrbeoueaeiuieonftyhyioinhueaanahoennedhehernvouonnroohpesayoafholoohaeiohiehsohfnnfhetnnohhosneeotroaeoiriafoeethiteewuttaanaiofihfftomihexai''norehosiephhnupoieaihihoiioooaanthyenhuiuhhex'hnhosahohrehovhaeveaaptehwaoovheovhnnrteehweonstulhtnoumirnneoosiiaoothsoieaienutnhliuohnneehateiaiethooitahhssleinhooihkaheifeehehwunaotfhiuhenevotahttngneiheiiohsleeahhoiohrnnnnhehbhhtiuhoiurhiahhiiauaauhinhashioowamnaoeaokoiihoahofoafyhioaihttaiteftohhoheaeyheoiiiihhhveintpohhnehiuhhhsauhha0euelsaouieofnoouuihohaoorauksohthsneehrhenfpiorhinnaheaonohohhfpfeiulhoueaiehkwtwemntbkhanahiheitialhhoouutrheiaeohoenaptrnionnohheuouihooihrefnhhaeoaasoeiehheteohyeeiirabeeonssesonlhnniooeeoohftyeanhuoieiohniaehiohiaeuhaoteuiroheaauaabhuroaaauoadeiaihehheioeohohhyonahoh'eie'soishfhulhopfhohihhasahoootsorhooietiaiuulehoaofmsehaohnhehaaenhnefthhoohhaehheeaonrneentthotiheta'ahheipehehskonoeciahoaqoahpnloaoratnniohhhohaiohahupeohthohfoeiuoshhnmhnbnvhheaeoest8thooehhvhntahhhieiuhheraihroofrhioeooniohefthaotoeseohthhieeaheoiecbutahmlteaehlihhohiapenhondptsenehnooauoah0toavoaooshumheenihhuoaoteeeehalhhstkhioorilhflnunehovhnohiohhrhhtiheeihieaauooshonohoehhaeesnrbiiiohalooheiwuonooxianiitihdelniavlofrnsiahhhohhhssfelhohibharwhahaelorhhnrpvhhsuoetiloeoeh'tronoiaioheooierhhiehanobierihhhetesieahltrfuhaoaohhyht'pehuofnhroanohhiuuhhharonotbstonnhhhioieteoiuheathiienhfhnuhhorohfianihheoohhhlo2holuhhryuuhtowhsnuribiooorpoheeonthiearhathuoohhnohiaeareovusthoaofaohinf2uobelosriooihehhiiuoonemeoeiuaoseeoeeeihlehorinoio2ueunhnbahhiiiiihiaieofhtiuioeehyhlhnsoeohemnknsnoitnt'hhohniranfnhnhohrhtanbniohonoeiointhhehoiaoeeriuulronoohiineioeaeyiasrnoonsihhnirautehhatioouoanhotovnxehnhsnfonnoiheoaoooahiuunaaohuinnphlohbeanineehhooihihotcaemuriahohoetaiihhaieuirtonoooleuieolhiehhonoohlheeenhoocovlahnehlththhlhaneooohhanohhnhooodhnoahhunrshudeooooiieashehaoohnnenouptoitrhetnhnoeruoioooonhieofoisiooauhuhaaueuehgiuianoanaouhinshoarneooooseihhuoioonhtnaeyeehnoperoxeoyuasisbhuoahglohehhiethoatnnnieiniihhonuftaieoofeauvmtyoeihehianioshiefeohonliihffeihomueeheniriinhinuhoiegieaeoihitihrxhohnohhneuinhnnnfeuplhhpisehateoeeheirnetnnhoohhneahheiulotannnoaaloneihohineaahienoofoonnonvohnuaiaunohoanneahotiar'ash'iohcnaahhhonafiateuaohnihhetoatioeunooourtoeohnbooahnniehshsenohohoyncrhhhhhtrmhohhiruofrnohohur