Select Code to Download

#!/usr/bin/perl

...
    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) {

        print "=" x 20, "\n";
        my ($fil_rubrik_id, $fil_rubrik_name) = ($1, $2);
...
    }

}