Get the twitter handles for all Toronto City Council.

get-to-council-twitter.pl

#!/usr/bin/perl
use strict;

my @urls = qw( http://toronto.about.com/od/civicscityservices/tp/city_councillors_contact.htm 
               http://toronto.about.com/od/civicscityservices/tp/city_councillors_contact.01.htm
               http://toronto.about.com/od/civicscityservices/tp/city_councillors_contact.02.htm
               http://toronto.about.com/od/civicscityservices/tp/city_councillors_contact.03.htm
               http://toronto.about.com/od/civicscityservices/tp/city_councillors_contact.04.htm );

my @twitter;

for my $url ( @urls ){
	for( `curl -s $url | html2text` ){
		if( /\s(\@\S+)/ ){
			push( @twitter, $1 );
		}
	}
}

print join( "\n", @twitter ) . "\n";