while (not $second and $linking =~
              /(\bINT\s?[0-9A-Fa-f]{2}[Hh]?
                (?:\/(?:E?[ABCD][XHL]|E?[SD]I|E?[SB]P|[DESC]S)=[0-9A-Fa-f]{2,}[Hh]?)+
                (?:\"[^"]+\")?
               )
              |(\bINT\s?[0-9A-Fa-f]{2}[Hh]?
                (?:\"[^"]+\")?
               )
              |(\b(?:E?A[XHL])=[0-9A-Fa-f]{2,}[Hh]?
                (?:\/(?:E?[ABCD][XHL]|E?[SD]I|E?[SB]P|[DESC]S)=[0-9A-Fa-f]{2,}[Hh]?)*
                (?:\"[^"]+\")?
               )
              |(\#[0-9A-Z][0-9]{4}\b)
              |(\bMEM\s?[0-9A-Fa-fXx]{1,4}[Hh]?:[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:\"[^"]+\")?
               )
              |(\bMEM\s?[0-9A-Fa-fXx]{1,8}[Hh]?
                (?:\"[^"]+\")?
               )
              |(\@[0-9A-Fa-fXx]{1,4}[Hh]?:[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:\"[^"]+\")?
               )
              |(\bPORT\s?[0-9A-Fa-fXx]{1,4}[Hh]?-[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:\"[^"]+\")?
               )
              |(\bPORT\s?[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:\"[^"]+\")?
               )
              /x) {
              my $intplus = $1;
              my $intonly = $2;
              my $regonly = $3;
              if (defined $regonly and not defined $int) {
                if (defined $link) {
                  print_or_errorline("Entered reg only link without implicit INT");
                  return;
                }
                $maskhighlight .= " " x (length($`) + length($&));
                $linking = $';
                next;
              }
              my $table = $4;
              my $mem_16_16 = $5;
              my $mem_32 = $6;
              my $call = $7;
              my $portrange = $8;
              my $portsingle = $9;
              $maskhighlight .= " " x length $`;

##</code><code>##

            my $linkpattern = <<PATTERNEND;
              (\bINT\s?[0-9A-Fa-f]{2}[Hh]?
                (?:\/(?:E?[ABCD][XHL]|E?[SD]I|E?[SB]P|[DESC]S)=[0-9A-Fa-f]{2,}[Hh]?)+
                (?:\"[^\"]+\")?
               )
              |(\bINT\s?[0-9A-Fa-f]{2}[Hh]?
                (?:\"[^\"]+\")?
               )
              |(\b(?:E?A[XHL])=[0-9A-Fa-f]{2,}[Hh]?
                (?:\/(?:E?[ABCD][XHL]|E?[SD]I|E?[SB]P|[DESC]S)=[0-9A-Fa-f]{2,}[Hh]?)*
                (?:\"[^\"]+\")?
               )
              |(\#[0-9A-Z][0-9]{4}\b)
              |(\bMEM\s?[0-9A-Fa-fXx]{1,4}[Hh]?:[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:\"[^\"]+\")?
               )
              |(\bMEM\s?[0-9A-Fa-fXx]{1,8}[Hh]?
                (?:\"[^\"]+\")?
               )
              |(\@[0-9A-Fa-fXx]{1,4}[Hh]?:[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:\"[^\"]+\")?
               )
              |(\bPORT\s?[0-9A-Fa-fXx]{1,4}[Hh]?-[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:\"[^\"]+\")?
               )
              |(\bPORT\s?[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:\"[^\"]+\")?
               )
PATTERNEND
            while (not $second and $linking =~
              /$linkpattern/x) {
              my $intplus = $1;
              my $intonly = $2;
              my $regonly = $3;
              if (defined $regonly and not defined $int) {
                if (defined $link) {
                  print_or_errorline("Entered reg only link without implicit INT");
                  return;
                }
                $maskhighlight .= " " x (length($`) + length($&));
                $linking = $';
                next;
              }
              my $table = $4;
              my $mem_16_16 = $5;
              my $mem_32 = $6;
              my $call = $7;
              my $portrange = $8;
              my $portsingle = $9;
              $maskhighlight .= " " x length $`;

##</code><code>##

Unrecognized escape \s passed through at /home/[user]/proj/tractest/intlist.pl line 419.
Unrecognized escape \s passed through at /home/[user]/proj/tractest/intlist.pl line 419.
Unrecognized escape \s passed through at /home/[user]/proj/tractest/intlist.pl line 419.
Unrecognized escape \s passed through at /home/[user]/proj/tractest/intlist.pl line 419.
Unrecognized escape \s passed through at /home/[user]/proj/tractest/intlist.pl line 419.
Unrecognized escape \s passed through at /home/[user]/proj/tractest/intlist.pl line 419.
Unmatched ( in regex; marked by <-- HERE in m/              INTs?[0-9A-Fa-f]{2}[Hh]?
                (?:/(?:E?[ABCD][XHL]|E?[SD]I|E?[SB]P|[DESC]S)=[0-9A-Fa-f]{2,}[Hh]?)+
                (?:"[^"]+")?
               )
              |INTs?[0-9A-Fa-f]{2}[Hh]?
                (?:"[^"]+")?
               )
              |(?:E?A[XHL])=[0-9A-Fa-f]{2,}[Hh]?
                (?:/(?:E?[ABCD][XHL]|E?[SD]I|E?[SB]P|[DESC]S)=[0-9A-Fa-f]{2,}[Hh]?)*
                (?:"[^"]+")?
               )
              |(#[0-9A-Z][0-9]{4)
               <-- HERE |MEMs?[0-9A-Fa-fXx]{1,4}[Hh]?:[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:"[^"]+")?
               )
              |MEMs?[0-9A-Fa-fXx]{1,8}[Hh]?
                (?:"[^"]+")?
               )
              |(@[0-9A-Fa-fXx]{1,4}[Hh]?:[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:"[^"]+")?
               )
              |PORTs?[0-9A-Fa-fXx]{1,4}[Hh]?-[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:"[^"]+")?
               )
              |PORTs?[0-9A-Fa-fXx]{1,4}[Hh]?
                (?:"[^"]+")?
               )
/ at /home/[user]/proj/tractest/intlist.pl line 447, <$array_lstff[...]> line 197305.