print "=" x 20, "\n";
	    my ($fil_rubrik_id, $fil_rubrik_name) = ($1, $2);
	    my $offset = 0;
	    #get firms
	    ORG_LIST:
	    my $resorgs = $mech->get("http://somesite.ru/catalog.aspx?rubricId=$fil_rubrik_id&format=png&width=220&height=185&cityId=$city_id&offset=" . $offset++);
	    my (@firms) = $resorgs->content =~ m{<li><a href='catalog\.aspx\?firmId=(\d+)&format=png&width=220&height=185&cityId=$city_id'}g;
	    foreach my $firm_id (@firms) {
		my $res = $mech->get("http://somesite.ru/catalog.aspx?firmId=$firm_id&format=png&width=220&height=185&cityId=$city_id");
		my ($name) = $res->content =~ m{<h1>([^<]+)</h1>}s; #name
		#get sections with different addresses
		my $result = $res->content;
		while ($result =~ m{<p></p>(\s+<p>.+?</p>\s+<p>.+?</p>\s+<p>.+?</p>)}sg) {
		    my $firm = $1;
		    my ($address) = $firm =~ m{class="address">([^<]+)</a>}s;
		    my ($phone) = $firm =~ m{<p>\s+<a href='map\.aspx?[^>]+>[^<]+</a>\s+</p>\s+<p>\s+(.+?)</p>}s; 
		    if ($phone) {
			$phone =~ s/\r\n/ /g;
			$phone =~ s/<br>/; /g;
		    }
		    my ($www) = $firm =~ m{<a href="http://[^"]+" target="_blank">([^<]+)</a>}s; #URL
		    my ($email) = $firm =~ m{<a href="mailto:[^"]+">([^<]+)<br>}s; #URL
		    foreach ($fl_rubrik_name, $sl_rubrik_name, $fil_rubrik_name, $city, $name, $address, $phone, $www, $email) {
			if ($_) {
			    s/^\s+//g;
			    s/\s+$//g;
			    s/\s+/ /g;
			}
			else {
			    $_ = "";
			}
		    }
		    open TEST, ">>", "_$city_id.txt" or die $!;
		    print TEST join("\t", ($fl_rubrik_name, $sl_rubrik_name, $fil_rubrik_name, $city, $name, $address, $phone, $www, $email)), "\n";
		    close TEST;
		}
	    }
	    if ($resorgs->content =~ m{<img src="images/but_redo\.gif" border="0">}) {
		goto ORG_LIST;
	    }
	}
    }

}