#!/usr/bin/perl -w
use strict;
use HTML::TokeParser;
use LWP::Simple;

# magiczny adres URL.
my $url = "http://www.gamestop.com/search.asp?keyword=&platform=26".
          "&lookin=title&range=all&genre=0&searchtype=adv&sortby=title";

# magiczne dane.
my $data = get($url) or die $!;

# magiczne parser.
my $p = HTML::TokeParser->new(\$data);

# teraz dla kadej tabeli 510 i 75...
while (my $token = $p->get_tag("table")) {
    next unless defined($token->[1]{height});
    next unless defined($token->[1]{width});
    next unless $token->[1]{height} == 75;
    next unless $token->[1]{width} == 510;

# pobieramy tytu.
    $p->get_tag("font"); $p->get_tag("a");
    my $title = $p->get_trimmed_text;

    # i cen.
    $p->get_tag("font"); $p->get_tag("/b");
    my $ptoken = $p->get_token;
    my $price = $ptoken->[1];
    $price =~ s/\$//;

    # rozdzielamy przecinkami.
    print "\"$title\",$price\n";
}

