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

    print($vulnerabilityName, "\n");
}