Help for this page

Select Code to Download

Select or download this

               map  { my $s = $_;
                      $s =~ s/(?<![\[\d])(\d+)/
...
                      /eg;
                      [ $_, $s ] }
                    }