#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;

my $main_catalogue_url = "http://somesite.ru/catalog.aspx?&cityId=3";
my $city_id = 3;
my $city = "CityName";
my $mech = WWW::Mechanize->new();
#Get main links (first level) 
my $resfl = $mech->get( $main_catalogue_url );
my $resfl_result = $resfl->content;
while ($resfl_result =~ m{<li><a href='catalog\.aspx\?rubricId=(\d+)&format=png&width=220&height=185&cityId=\d+'>([^<]+)</a></li>}g) {
    my ($fl_rubrik_id, $fl_rubrik_name) = ($1, $2);
    #get second level links
    my $ressl = $mech->get( "http://somesite.ru/catalog.aspx?rubricId=$fl_rubrik_id&format=png&width=220&height=185&cityId=$city_id" );
    my $ressl_result = $ressl->content;
    while ($ressl_result =~ m{<li><a href='catalog\.aspx\?rubricId=(\d+)&format=png&width=220&height=185&cityId=\d+'>([^<]+)</a></li>}g) {
	my ($sl_rubrik_id, $sl_rubrik_name) = ($1, $2);
	#get third level links
	my $resfil = $mech->get("http://somesite.ru/catalog.aspx?rubricId=$sl_rubrik_id&format=png&width=220&height=185&cityId=$city_id");
	my $resfil_result = $resfil->content;
	while ($resfil_result =~ m{<li><a href='catalog\.aspx\?rubricId=(\d+)&format=png&width=220&height=185&cityId=\d+'>([^<]+)</a></li>}g) {