Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -l

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

Select or download this

Thanos1983+|Thanos1983
I found:        $1: 'Thanos1983+'       $2: '|' $3: 'Thanos1983'
Thanos1983+|
I found:        $1: 'Thanos1983+'       $2: '|' $3: ''