use URI::URL;
use LWP::Simple;
use HTML::TokeParser;
use strict;

my $url = url('http://www.census.gov/cgi-bin/gazetteer');
$url->query_form( city => "Tulsa", state => "OK" );
my $document = get( $url );

my $p = HTML::TokeParser->new(\$document);

open( OUTPUT, ">output.html" ) || die "Couldn't open 'output.html': $!\n";

while (my $token = $p->get_tag("a")) {
  my $url = $token->[1]{href};
  $url =~ s/CMD=TABLES/CMD=RET/;
  my $text = $p->get_trimmed_text("/a");
  if ($text eq "STF1A" || $text eq "STF3A") {
    print OUTPUT "<a href=$url/FMT=HTML/T=P1>$text</a><BR>\n";
  }
}

close( OUTPUT ) || die "Can't close  'output.html': $!";