Select Code to Download

perl -E "@a1=qw(1 2 3); @a2=qw(a b c d e); say for (@a1 & @a2)"

...
c
d
e

open(FILE, "<x.log");
close (FILE);
...
..
close $file_handle;

my @array;
...

push @array, $_ for grep{..

# pseudocode

...
    interesting3 = [ 1, 1 ],     # is present in both files
);