Note that this may be against their terms of service and that you may cripple their server if you are not careful to limit your request rate. For good luck here are 7 lines to get you started.
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!"$_"! } @da
+ta;
print "$csv\n";
}