test.pl

use strict;
use warnings;
no warnings 'experimental::smartmatch';

my $text = <<ENDTEXT;
Řádek pro automatické zpracování:
DOMAINREN|domain.com|2342432|123432424|3242432
ONLINE|stufandssssssssss
ENDTEXT

my @registry_patterns = (
    qr/^DOMAINREG\|([^\|]+)\|/m,
    qr/^DOMAINREN\|([^\|]+)\|/m,
    qr/^DOMAINTRAN\|([^\|]+)\|/m,
    qr/^PROCESS\|DOMAINREG\|([^\|]+)\|/m,
    qr/^PROCESS\|DOMAINUPD\|([^\|]+)\|/m,
    qr/^PROCESS\|DOMAINTRAN\|([^\|]+)\|/m,
    qr/^PROCESS\|DOMAINREN\|([^\|]+)\|/m,
    qr/^PROCESS\|DOMAINCHG\|([^\|]+)\|/m,
    qr/^\| subject of the change: change of the domain (\S+\.\S+)$/m,
    qr/^\| subject of the change: change of the owner of the domain (\S+\.\S+)/m,
);

if ($text ~~ @registry_patterns){
    print "Matched: $1";
}