#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

my $test = 'Thanos1983+|Thanos1983';
say "I found:\t\$1: '$1'\t\$2: '$2'\t\$3: '$3'"
    if $test =~ /(^[\w+\+]+)(\|)([\w+\+]+$)/;

__END__

$ perl test.pl
I found:	$1: 'Thanos1983+'	$2: '|'	$3: 'Thanos1983+'

##</code><code>##

$ perl test.pl
I found:	$1: 'Thanos1983+'	$2: '|'	$3: ''