This is PerlMonks "Mobile"

Clear questions and runnable code get the best and fastest answer
	PerlMonks

Feel free to comment on the development of Text::CSV_XS in this node.

        my @ids = map {
               s{<.+?>}                 {}gr
            =~ s{^(\d+(stnrdh{2}|))}  {NUMWORDS ($1)}er
            =~ s{(.)\.\w{2,5}?$}        {$1}r
            =~ s{&}                  {and}gr
            =~ s{&}                     {and}gr
            =~ s{Æ}                     {Ae}gr
            =~ s{Ç}                     {C}gr
            =~ s{Ü}                     {U}gr
            =~ s{(è|é|ê)}               {e}gr
            =~ s{#}                     {No}gr
            =~ s{ }                     {_}gr
            =~ s{^\w:.\-}             {}gr
            } grep { defined } @base;

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

sub fancy_map {
  my ($opt, $list) = @_;
  map { ref $_
    ? fancy_map ($opt, $_);
    : do {
      my $before = $opt->{'before'} ?     $opt->{'before'}.' ' : '';
      my $after  = $opt->{'after'}  ? ' '.$opt->{'after'}      : '';
      $before.$_.$after;
      }
    } @{$list};
  }
[download]