Select Code to Download

my @arr=(
    [qw(a b c d)],
...
my @arr1 = grep {! grep {/e/} @$_} @arr;

print join(':', map {join '', @$_} @arr1) . "\n";

abcd:efg:hij:efg:hij:efg:hij:abcd:abcd
abcd:hij:hij:hij:abcd:abcd