#!/usr/bin/perl -l

# http://perlmonks.org/?node_id=1206677

use strict;
use warnings;

for ( 'Thanos1983+|Thanos1983', 'Thanos1983+|' )
  {
  print;
  /([^|]*)(\|)([^|]*)/ and print "I found:\t\$1: '$1'\t\$2: '$2'\t\$3: '$3'";
  }