#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);

my $string = q'Thanos1983+|Thanos1983+|Thanos1983+';

$string =~ m/(.+)\|(.+)\|(.+)/;

say for ($1,$2,$3);

__END__