in reply to Remove return on multiple lines between 2 characters

I think I'm close for my solution.... 
open(FILE, "<" , \$lines);
while (<FILE>) {
  chomp;      # strip record separator
  if(/\)$/) { $f=2; }
  if (/^\*/) { $f=1; }
  if ($f == 1) {
    print $_;
  }
  if ($f==2) {
    chomp;      # strip record separator
    print " " . $_ . "\n";
  }
}

[download]
gets me ... 
* The maximum file offset handling for ext4 file systems could allow alocal, unprivileged user to cause a denial of service. (CVE-2011-2695, Important)
 
* IPv6 fragment identification value generation could allow a remoteattacker to disrupt a target system's networking, preventing legitimate users from accessing its services. (CVE-2011-2699, Important)
 
* A malicious CIFS (Common Internet File System) server could send aspecially-crafted response to a directory read request that would result ina denial of service or privilege escalation on a system that has a CIFS share mounted. (CVE-2011-3191, Important)

Replies are listed 'Best First'.
Re^2: Remove return on multiple lines between 2 characters
by tybalt89 (Monsignor) on Jul 18, 2017 at 21:22 UTC 
    #!/usr/bin/perl

# http://perlmonks.org/?node_id=1195378

use strict;
use warnings;

my $lines = "The kernel packages contain the Linux kernel, the core of
+ any Linux operating system.

Security fixes:

* The maximum file offset handling for ext4 file systems could allow a
local, unprivileged user to cause a denial of service. (CVE-2011-2695,
  Important)

* IPv6 fragment identification value generation could allow a remote
attacker to disrupt a target system's networking, preventing legitimat
+e
users from accessing its services. (CVE-2011-2699, Important)

* A malicious CIFS (Common Internet File System) server could send a
specially-crafted response to a directory read request that would resu
+lt in
a denial of service or privilege escalation on a system that has a CIF
+S
share mounted. (CVE-2011-3191, Important)
";

for ( $lines =~ tr/\n/ /r =~ /\*\s*([^*]*\(CVE.*?\))/g )
  {
  print "$_\n\n";
  }

    [download]
[reply]
[d/l]
      Thanks your solution seems better. It works perfectly.
[reply]

In Section Seekers of Perl Wisdom