targumon

https://www.codewars.com/
https://codefights.com/
https://checkio.org/

<text[^>]+>.*?([а-яёА-ЯЁ\(\)]+(?:\s+[а-яёА-ЯЁ\(\)]+)*).*?<

^(?:[^:]+://)?(.+?)/([^/]+)$

txt = "текст текст: один два три"
txt.partition(':')[2]

Multiplayer Network Compendium by Cedric ‘eXi’ Neu...

По поводу смысла в переменных $ssta, $ssto, $sbeta и $sbeto.
Исходя из того, что не используются прагмы strict и warnings, у меня складывается такой вывод: скрипт с указанным выше кодом вызывается из другого скрипта.

Пример:

t.pl

#!/usr/bin/env perl

our $ssta = 10;

print "0 ssta (t.pl): $ssta\n";

require 'rt.pl'; # либо:   do 'rt.pl';

print "1 ssta (t.pl): $ssta\n";

rt.pl

#!/usr/bin/env perl

my $sta = 15;

print "2 ssta (rt.pl): $ssta\n";

$ssta += $sta;

print "3 sta (rt.pl): $sta\n";
print "4 ssta (rt.pl): $ssta\n";

Выхлоп

0 ssta (t.pl): 10
2 ssta (rt.pl): 10
3 sta (rt.pl): 15
4 ssta (rt.pl): 25
1 ssta (t.pl): 25

Т.е. вызывающий скрипт объявляет глобальные переменные (our) $ssta, $ssto, $sbeta и $sbeto, которым присваивается некое значение, затем вызывается другой скрипт (require или do), который проводит какие-то расчеты и обновляет эти глобальные переменные.

Возможно к паролю подсовываются переносы строк:

sub trim($) {
    my $t = shift;

    $t =~ s{^\s+}{}g;
    $t =~ s{\s+$}{}g;

    return $t;
}

$pass = trim $pass;

use Mojo::DOM;

my $text = '<img id = "3" class="lazy" src="/media/a.jpg" data-original="/media/a.jpg" alt="text">';
my $data_original = Mojo::DOM->new( $text )->find( 'img' )->map( attr => 'data-original' );

print "$_\n" foreach @$data_original;

Напрмер, perl с такими модулями:
WWW::Mechanize для серфа по сайту
Mojo::DOM для парсинга html
AnyEvent если понадобится асинхронность

Можно использовать подобный вариант.

Конфиг, допустим, такой:

<VirtualHost 222.222.222.222:81 >
ServerName somedomain.com
CustomLog /var/www/httpd-logs/somedomain.com.access.log combined
DocumentRoot /var/www/someuser/data/www/somedomain.com
ErrorLog /var/www/httpd-logs/somedomain.com.error.log
ServerAlias www.somedomain.com
SuexecUserGroup someuser somegroup
ServerAdmin webmaster@somedomain.com
ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain.com/cgi-bin/
</VirtualHost>
<VirtualHost 222.222.222.222:81 >
ServerName somedomain1.com
CustomLog /var/www/httpd-logs/somedomain1.com.access.log combined
DocumentRoot /var/www/someuser/data/www/somedomain1.com
ErrorLog /var/www/httpd-logs/somedomain1.com.error.log
ServerAlias www.somedomain1.com
SuexecUserGroup someuser somegroup
ServerAdmin webmaster@somedomain1.com
ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain1.com/cgi-bin/
</VirtualHost>
<VirtualHost 222.222.222.222:81 >
ServerName somedomain2.com
CustomLog /var/www/httpd-logs/somedomain2.com.access.log combined
DocumentRoot /var/www/someuser/data/www/somedomain2.com
ErrorLog /var/www/httpd-logs/somedomain2.com.error.log
ServerAlias www.somedomain2.com
SuexecUserGroup someuser somegroup
ServerAdmin webmaster@somedomain2.com
ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain2.com/cgi-bin/
</VirtualHost>

sub removeIfSomedomain($$) {
    my $text = shift;
    my $domain = shift;
    
    $text = '' if $text =~ m{^\s*?ServerName\s+?$domain\s*?$}igsm;
    
    return $text;
}

sub changeContent($$$) {
    my $text = shift;
    my $domain = shift;
    my $new_values = shift;
    
    return $text if $text !~ m{^\s*?ServerName\s+?$domain\s*?$}igsm;
    
    foreach my $key ( keys %$new_values ) {
        $text =~ s{^(\s*?$key\s+?).+?$}{$1$new_values->{$key}}igsm;
    }
    
    return $text;
}

my $config = ... ; # содержимое конфига

$config =~ s{(<VirtualHost[^>]*?>.*?<\/VirtualHost>)}{ removeIfSomedomain($1,'somedomain1.com') }igse;

$config =~ s{(<VirtualHost[^>]*?>.*?<\/VirtualHost>)}{ 
                changeContent($1,'somedomain2.com', { SuexecUserGroup => 'justuser justgroup', 
                                                      ServerAlias => 'www.sd2.com', 
                                                      ServerAdmin => 'admin@somedomain2.com' } ) 
                                                      }igse;

Выхлоп:

<VirtualHost 222.222.222.222:81 >
ServerName somedomain.com
CustomLog /var/www/httpd-logs/somedomain.com.access.log combined
DocumentRoot /var/www/someuser/data/www/somedomain.com
ErrorLog /var/www/httpd-logs/somedomain.com.error.log
ServerAlias www.somedomain.com
SuexecUserGroup someuser somegroup
ServerAdmin webmaster@somedomain.com
ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain.com/cgi-bin/
</VirtualHost>

<VirtualHost 222.222.222.222:81 >
ServerName somedomain2.com
CustomLog /var/www/httpd-logs/somedomain2.com.access.log combined
DocumentRoot /var/www/someuser/data/www/somedomain2.com
ErrorLog /var/www/httpd-logs/somedomain2.com.error.log
ServerAlias www.sd2.com
SuexecUserGroup justuser justgroup
ServerAdmin admin@somedomain2.com
ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain2.com/cgi-bin/
</VirtualHost>

$el - это ссылка на хэш. Ее надо разыменовать, прежде чем обращаться к самому хэшу:

foreach my $el (@series){
  print $el->{'login'};
}