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