#!/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 legitimate
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 result in
a denial of service or privilege escalation on a system that has a CIFS
share mounted. (CVE-2011-3191, Important)
";

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