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