Select Code to Download

my @content =
  map { s/\n+/ /g; s/ {2,}/ /g; s/\* //; $_ }
  grep { /\*.+/ } split /\n\n/,
  $lines;