pcdesign

А если убрать все это

#no warnings;
use utf8;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';

И написать так
use open ':std', ':encoding(UTF-8)';

Вот такой однострочник, чтобы найти в папке /tmp симлинки

perl -E 'for $f (glob "/tmp/*") {say $f if (-l $f)}'

Я когда-то давно настроил по такому мануалу:
www.lospuntos.vv.si/2008/punto17-technik/computers...

Работает и по сей день.
Хотя с тех пор возможно что-то изменилось.

https://stackoverflow.com/questions/36870570/perl-...

и Perl последний часто по умолчанию отключен «по соображениям безопасности»?

Это все равно что в столярном цехе написать: "По соображениям безопасности топоры, молотки и зубила - спрятаны, чтобы рабочие не покалечили друг друга".
А можете дать скриншот такого хостинг провайдера, где это написано?
Нужно знать своих героев.

Perl отключен - потому что он не нужен для 99.9% юзеров на хостинге.

1) Можно попробовать подобрать один из модулей Switch, который покажется наиболее удобным:
https://metacpan.org/search?q=module%3ASwitch

2) Перевести всю логику в хэши, вот по такому образцу:

my %password = (
    'tom' => '123!',
    'frank' => '321!',
);

if ( exists $password{$name} && $password eq $password{$name} ) {
# что-то делаем
}

3) Вместо магических цифр $contr_doc_id != 4 , можно использовать константы

use constant {
    FOO => 4,
    BAR => 5
};

https://perldoc.perl.org/constant.html

$string = "gkjgklgn.jmnmmm.44444.55555.66666\hyjjkjmh";
print substr($string, 0, rindex($string, "."));

А для этого не нужны регулярки. Достаточно susbstr

print substr("text123 (text 123)",0, 7);
# Результат text123
print substr("texttext texttext123",0, 5);
# Результат textt

if ($str =~ /^[ \p{Uppercase}]+$/) {
    print "ВСЕ БУКВЫ БОЛЬШИЕ r\n";
}

Да, похоже на вирус.
Попробуйте запускать этот код без упаковки в exe, просто через perl-интерпретатор.

В идеале еще на голой виртуалке c виндной попробовать это сделать. Посмотреть что будет.

Так же имеет смысл собрать exe-файл по новой и сравнить его со старым uploader.exe.

Имхо, это очень небезопасно и исправлять надо именно это.

Но, если хотите сейчас быстро хоть как-то пофиксить, а потом разбираться, то можете попробовать переименовать файл с конфигом во что-нибудь сложное. Например, раньше у вас файл назывался config.pl переименуйте его в
0bb4e71ef77d38334f14cc3c98d00cf8.pl
И пропишите в коде новое имя.

#!usr/bin/perl-w
use strict;
use Term::ReadKey;
use feature 'say';

ReadMode 4;
say "Нажмите любую клавишу для паузы";
say "Нажмите ESC для выхода";
my $key;
$| = 1;
my $x = 1;

sub check_esc {
    my $key = shift; 
    if ( ord($key) == 27 ) { ReadMode 0; exit 0; }
    else                   { return 1; }
}
    
while ( $x < 99999 ) {
    sleep 3;
    $x++;
    say $x; 
    if ( defined( $key = ReadKey(-1) ) ) {
        &check_esc($key);
        say "Ура, Пауза! Нажмите любую клавишу для продолжения ...";
        while ( not defined( $key = ReadKey(-1) ) ) { }
        &check_esc($key);
    }

}
ReadMode 0;

Результат работы:

Нажмите любую клавишу для паузы
Нажмите ESC для выхода
2
3
4
5
Ура, Пауза! Нажмите любую клавишу для продолжения ...
6
7
8

Если на коленке и без использования всяких модулей, то можно вот так:

use strict;
use warnings;
use utf8;

my $csv = <<'EOF';
ClassA1,mark,chemistry,5
ClassA2,mark,philosofyr,5
ClassA2,julia,physic,5
ClassA1,julia,math,3
ClassA1,mark,philosophy,5
ClassA1,julia,chemistry,4
ClassA2,mark,chemistry,4
ClassA2,julia,literature,2
EOF

my @csv = split "\n", $csv;

my (%sum, %count);
for my $row (@csv) {
    my ( $class, $name, undef, $num ) = split ",", $row;
    my $key = $class . '-' . $name;
    $sum{$key} += $num;
    $count{$key} += 1;
}

for my $name_class ( keys %sum ) {
    print $name_class, $sum{$name_class}/$count{$name_class}, "\n";
}

Результат:

ClassA1-julia3.5
ClassA2-julia3.5
ClassA2-mark4.5
ClassA1-mark5

Хотя можно все это покрасивее и короче написать.

my $str = '0000000000000000;39999999999;2;NONE;true;526;246;101;100;2;1;;;;;;8;101/100.000.99.99;246/000.000.122.122';

 
#-------------------------------------------------------------------------------
#  Заменили дроби на ;
#-------------------------------------------------------------------------------
$str =~ s!/!;!gx;


#-------------------------------------------------------------------------------
#  Получили один большой массив
#-------------------------------------------------------------------------------

my (@arr) = split ';', $str;


#-------------------------------------------------------------------------------
#  Получаем дубликаты
#-------------------------------------------------------------------------------

my %seen = ();
my @dup = map { 1==$seen{$_}++ ? $_ : () } @arr;

say Dumper @dup;

На перле примерно так. Дальше сами справитесь?

Если я правильно понял вопрос, то на perl можно вот так:

use strict;
use warnings;
use utf8;

my $text = <<'EOF';
<description>
  Туалетная вода-спрей
  &lt;br&gt;ВОСТОЧНЫЙ ФУЖЕР
  &lt;br&gt;Мужчина в стиле ориентирован на успех, целеустремлен и созидателен. Мужественность, достоинство, уверенность – его главные черты,    наряду с чувственностью и романтичностью. Он
 любит комфорт, красивые вещи,   роскошную жизнь и выражает себя в классическом пок$
 &lt;br&gt;Ключевые слова: Уверенный, динамичный, мужественный, благородный,  элегантный, статусный, успешный</description>

EOF

$text =~ s{<description>.*?</description>}{<description></description>}gsi;

print $text;

Результат:
<description></description>