#!/usr/bin/perl use WWW::Mechanize; use warnings; my $mech = WWW::Mechanize->new(); my $mechx = WWW::Mechanize->new(autocheck => 0, autodie => 0); my $url = 'http://www.topbuy.com.au'; $mech->get($url); $content= $mech->content; if($content=~/id="topbuy-nav-category-wrapper">(.*?)id="topbuy-nav-features"/isxm){ $c = $1; @urls=''; while($c=~/href=(http.*?\.html)/gixsm){ $a_l = $1; if($a_l~~@urls){} else{push(@urls, "$a_l");} } } foreach $url (@urls) { continue_shopping($url); $mech->get($url) or die $!; $con1 = $mech->content(); $row = 0; while($con1 =~/