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;
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};
}
|