in reply to Remove return on multiple lines between 2 characters

If i understood you right you probably want something like this: say for grep { /\*.+/ } split /\n\n/, $lines;

Update: I missed something:

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

[download]

Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

In Section Seekers of Perl Wisdom