Select Code to Download

Any ~~ Array
match against an array element
grep $a ~~ $_, @$b

Any ~~ Regex
pattern match
$a =~ /$b/

use feature qw( say );

...
for (qw( aaa bbb ccc ddd )) {
   say if $_ ~~ @pats;
}

aaa
ccc