Select Code to Download

   @molecules = <MOL>;
   map { chomp; $_ = quotemeta; } @molecules;

   push my @molecules, quotemeta chomp while <MOL>;

push @m, quotemeta chomp while <DATA>;
print join("|",@m),$/;
...
AAA
BBB
&*(