Select Code to Download

  DB<1> x @lines
0  "\cM"
...
22  "\cM"
23  "\cM"
24  "\cM"

my @lines = split /\r\n/, $plain_text;