Select Code to Download

 ((?:\[.*?\]){1,4})

my @indexes;
my $re = qr{
...
     (?{ push @indexes, $^R}) # store the match
    )+            # as many times as you want
}x

re:  (..) (..)+
vars: $1   $2