E-Books & Document Readers, ##
##

#!/usr/bin/perl -w

use strict;

use LWP::Simple;

my %categories;         # No need for  '= ()'

my $page = get('http://www.handango.com/PlatformSoftware.jsp?platformId=1&siteId=1&zsortParams=true');

while ($page =~ /
                sectionId=(\d+)         # Section ID (all digits)
                [^>"]+">                # Remainder of param and tag
                \s+                     # Some whitespace
                     # SPAN tag
                ([^<]*)                 # "Stuff" up to next tag
                <                       # Start of next tag
                /xig)
{
        $categories{$1} = $2;
        print "[$1] and [$2]\n";
}

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