gistfile1.tcl

proc twitgrep q {
        set page [wget http://search.twitter.com/search.atom?q=$q];
        set titles [regexp -all -inline {<title>(.*?)</title>} $page];
        set names [regexp -all -inline {<uri>(.*?)</uri>} $page];
        set i 3;
        set j 1;
        set x "cocks";
        while {$x ne ""} {
            set x [lindex $titles $i];
            set n [lindex $names $j];
            lappend out "[bold]$n[bold] $x";
            incr i 2;
            incr j 2;
        }
        html [join $out "\n"]
    }