Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
I found:    $1: 'Thanos1983+'    $2: '|'    $3: 'Thanos1983+'
I found:    $1: 'Thanos1983+'    $2: '|'    $3: ' '
I found:    $1: 'Thanos1983+'    $2: '|'    $3: ''
  2. or download this
    #!/usr/bin/perl
use strict;
...
$ perl test.pl
I found:    $1: 'Thanos1983+'    $2: '|'    $3: 'Thanos1983+'
I found:    $1: 'Thanos1983+'    $2: '|'    $3: ' '