#!/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)
";

my @content = $lines =~ tr/\n/ /r =~ /\*\s*([^*]*?)\s*\(CVE/g;

use Data::Dump 'pp'; pp \@content;
[download]