f*ck!

[_kleptos_]

my $cats_object = $ENV{REQUEST_URI};
{
local $1;
$cats_object =~ /cats_object=(\d+)/;
$cats_object = (defined $1)?$1:0;
}

require “cats/cats_setup_$cats_object.pm”;

my $cats_firm = $ENV{REQUEST_URI};
{
local $1;
$cats_firm =~ /cats_firm=([\w\d\/\.\s\-]+)/;
$cats_firm = (defined $1)?$1:undef;
}

оттудаже

...

OUT

my $numcol = int(@firms/3) + 1;
for (my $j = 0; $j < @firms; $j++) {
my $fdir = "$dir/$firms[$j]";

my $ftitle = title("$fdir");

my $uri = $ENV{REQUEST_URI};
# заменяем служебные комбинации
$uri =~ s/\+/ /g;
...