use LWP::Simple;
my $data = get( "http://www.speedtrap.org/speedtraps/ste.asp?city=all&state=AK" );
for my $chunk ( split /<table border="1" width="100%"/, $data ) {
    next unless $chunk =~ m/Jurisdiction/;
    @data = $chunk =~ m!<td width="66%" bgcolor="#FFFFFF">\s*(.*?)\s*</td>!gs;
    my $csv = join ',', map{ s!</?[^>]+>!!g; s!"!\\"!g; qq!"$_"! } @data;
    print "$csv\n";
}