Select Code to Download

my @array = map {
    some_sub (s/^[\*\+-] (.+)/$1/r, $opt);
    } @another_array;

sub fancy_map {
  my ($opt, $list) = @_;
...
      }
    } @{$list};
  }