Select Code to Download

perl -MRegexp::Assemble -e '
$ra=Regexp::Assemble->new; 
...
while(<>){
    print "$1 in $ARGV\n" if $_ =~ m{($re)}
}' list of files