Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(pp);
...
'a--b' -> ["a", "b", undef, undef]
'c--dE--F' -> ["E", "F", undef, undef]
'g--hI--Jk--l' -> ["k", "l", undef, undef]

c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(pp);
...
'a--b' -> ["a", "b"]
'c--dE--F' -> ["c", "d", "E", "F"]
'g--hI--Jk--l' -> ["g", "h", "I", "J", "k", "l"]

c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(dd);
...
 dd \@captures;
"
["B", undef, undef, undef, "D", undef, undef, undef, "F"]

c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(dd);
...
[0]

[undef, undef, undef, undef, undef, undef, undef, undef]

c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(pp);
...
match @ offset 3  ($1, $2)==(undef, undef)
match @ offset 4  ($1, $2)==(undef, undef)
[undef, undef, undef, undef, undef, undef, undef, undef, undef, undef]