#!perl
use LWP::Simple;
use strict;
use warnings;

#get the values out
my %categories = ();
my $page = get 'http://www.handango.com/PlatformSoftware.jsp?platformId=1&siteId=1&zsortParams=true';
while ($page=~m/class="smallprint">([^"]*)"\s+siteId=([^>]*)</sg)
{
        $categories{$1} = $2;
        print "[$1] and [$2]\n";
}

foreach my $idkey (keys %categories)
{
        print "$idkey,$categories{$idkey}\n";
}