#!/usr/bin/perl -w

use strict;

use LWP::Simple;

my %categories;

my $page = get('http://www.inshift.com/Products.html');

while ($page=~m/href="([^"]*)"\s+class="rightnav">([^>]*)</sg)
{
        $categories{$1} = $2;
        print "[$1] and [$2]\n";        # Note "\n"
}

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