Evaluated proc pnoun letter {set ::temp [allowed [last [regexp -all -inline {</noscript></div>\n<p>(.+?)</p>\n</p>} [http://noun1.com/start-$letter/]]] "abcdefghijklmnopqrstuvwxyz- "]}