Select Code to Download

#!/usr/bin/env perl -T

...
say '[1]', $1, '[1]';
say '[2]', $2, '[2]';
say '[', $_ + 3, ']', $captures[$_], '[', $_ + 3, ']' for 0 .. $#captu
+res;

$ pm_1047667_regex.pl
[1]3[1]
...
[4]
[5]ccccc
[5]

$ pm_1047667_regex.pl
[1]2[1]
...
[3]
[4]bbbb
[4]

$ pm_1047667_regex.pl
[1]4[1]
...
[5]ccccc
[5]
[6]ddddd[6]