foreach my $vulnerabilityText (@records) { (($vulnerabilityText =~ m/Remediation Report\n\n(.+?)\s*\n/) or ($vulnerabilityText =~ m/^(.+?)\s*\n/)); my $vulnerabilityName = $1; }