Select Code to Download

# if @tag contains simple words 
my $re = join '|', @tag;
...
}
close $in;
close $out;