OK, that makes it something like:

foreach my $vulnerabilityText (@records)
{
    $vulnerabilityText =~ m/(Remediation report\n\n)?(.+)/;
    my $vulnerabilityName = $2;

    print($vulnerabilityName, "\n");
}
[download]

I'm not sure about the newlines, but you'll work that out.