Select Code to Download

my @lines = map{"$_\n"} split /\r\n/, $plain_text;
print @lines[10,11,13,17,18,20];

use strict;
use LWP::Simple;

...

my @lines = map{"$_\n"} split /\r\n/, $plain_text;
print $lines[$_] for sort values %info_lines;