$$email =~ s/^.+?_{70}\n\n([[:digit:]])/$1/s;
while($$email =~ /(\d{2}\.\d+\.\d) CVE: ([^\n]+)\nPlatform: ([^\n]+)\nTitle: ([^\n]+)\nDescription: (.+?)\nRef: (http[^\n]*)/gs)
{
	print "CVE: $2\nPlat: $3\nTitle: $4\nDesc: $5\nURL: $6\n\n";
}