[%EVL: { my ($languages) = (); foreach my $lang(split(/\,/, $Language::LANGUAGES)) { $languages .= qq{$lang | } } $_ = $languages; } %] Site-UP | управление | изменить | открыть | новый | отключить | выход