Evaluated proc rr sub { set src [wget http://www.reddit.com/r/$sub.json]; set re [regexp -all -inline {id": "(.+?)".+?title": "(.+?)".+?url": "(.+?)"} $src]; set out ""; for {set i 1} {$i < [llength $re]} {incr i 4} { append out "\x02([lindex $re $i]) [lindex $re [+ $i 1]]\x02\n[lindex $re [+ $i 2]]\n"}; . $out}