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

##</code><code>##

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

##</code><code>##

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