Select Code to Download

my @values = map { s/dc=domain,dc=tld/dc=sub,dc=otherdomain,dc=tld/ir 
+} @$array_ref;

perl -E '
@ary =( "abc", "cbc", "dbd" ); say for map { s/b/FOO/r } @ary;
...
aFOOc
cFOOc
dFOOd