c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(pp);
 ;;
 my $rx_string =
   '([^|]*)(\|)([^|]*)'
   ;
 ;;
 for my $s (
   'Thanos1983+|',
   'Thanos1983+| ',
   'Thanos1983+|   ',
   'Thanos1983+|Thanos1983+',
   '|Thanos1983+',
   ' |Thanos1983+',
   '   |Thanos1983+',
   '+++|+++',
   '|',
   '||',
   '|||',
   ) {
   my $parsed   =
   my @captured = $s =~ $rx_string;
   if ($parsed) {
     print qq{'$s' -> }, pp \@captured;
     }
   else {
     print qq{failed to parse '$s'};
     }
   }
"
'Thanos1983+|' -> ["Thanos1983+", "|", ""]
'Thanos1983+| ' -> ["Thanos1983+", "|", " "]
'Thanos1983+|   ' -> ["Thanos1983+", "|", "   "]
'Thanos1983+|Thanos1983+' -> ["Thanos1983+", "|", "Thanos1983+"]
'|Thanos1983+' -> ["", "|", "Thanos1983+"]
' |Thanos1983+' -> [" ", "|", "Thanos1983+"]
'   |Thanos1983+' -> ["   ", "|", "Thanos1983+"]
'+++|+++' -> ["+++", "|", "+++"]
'|' -> ["", "|", ""]
'||' -> ["", "|", ""]
'|||' -> ["", "|", ""]