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