#!/usr/bin/perl
use strict;

open (DATAFILE, "<", 'test.txt') or die "Couldn't open file for reading: $!\n";
my   $temp;
$/ = ""; ## Paragraph mode

my $display_name;
my $version;

while( <DATAFILE> ) {

    m[
        (?= .*? \"DisplayName\"=\"([a-zA-Z0-9. -]*))
        (?= .*? \"DisplayVersion\"=\"([a-zA-Z0-9 .-]*))
        (?= .*? \"Publisher\"=\"([a-zA-Z0-9 .-]*))
    ]xsm;

    print "Name:$1\nVersion:$2\nPublisher:\n\n";

}

close(DATAFILE);
##</code><code>##

Name:
Version:
Publisher:

Name:
Version:
Publisher:

Name:
Version:
Publisher:

Name:Adobe SVG Viewer 3.0
Version: 3.0
Publisher:

Name:
Version:
Publisher:

Name:
Version:
Publisher:

Name:Example Display Name
Version:v7.5.2
Publisher:

Name:
Version:
Publisher:


##</code><code>##

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall]
"DisplayName"=""
"UninstallString"="C:\\PROGRA~1\\CISCOS~1\\VPNCLI~1\\Profiles\\PROGRA~1\\CISCOS~1\\VPNCLI~1\\profiles\\UNWISE.EXE C:\\PROGRA~1\\CISCOS~1\\VPNCLI~1\\Profiles\\PROGRA~1\\CISCOS~1\\VPNCLI~1\\profiles\\INSTALL.LOG"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\AddressBook]
@=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Adobe SVG Viewer]
"DisplayName"="Adobe SVG Viewer 3.0"
"DisplayVersion"=" 3.0"
"DisplayIcon"="C:\\Program Files\\Common Files\\Adobe\\SVG Viewer 3.0\\Uninstall\\SetupRsrc.dll,-200"
"VersionMajor"=dword:00000003
"VersionMinor"=dword:00000000
"InstallLocation"="C:\\WINDOWS\\system32\\Adobe\\SVG Viewer 3.0"
"UninstallString"="C:\\Program Files\\Common Files\\Adobe\\SVG Viewer 3.0\\Uninstall\\Winstall.exe -u -fC:\\Program Files\\Common Files\\Adobe\\SVG Viewer 3.0\\Uninstall\\Install.log"
"UninstallDir"="C:\\Program Files\\Common Files\\Adobe\\SVG Viewer 3.0\\Uninstall"
"Publisher"="Adobe Systems, Inc."
"RegCompany"="Adobe Systems Inc"
"URLInfoAbout"="http://www.adobe.com/"
"URLUpdateInfo"="http://www.adobe.com/svg/main.html"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Artemis 7.2.1 ODBC]
"NoRemove"=dword:00000001

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Standalone]
"UninstallString"="C:\\WINDOWS\\IsUninst.exe -f\"C:\\Program Filesone.isu\""
"DisplayName"="This is-not SHOWING"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\exampler]
"DisplayName"="Example Display Name"
"UninstallString"="c:\\applications\\uninst.exe"
"DisplayVersion"="v7.5.2"
"URLInfoAbout"="http://something.htm"
"Publisher"="NOT caught"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Branding]
"QuietUninstallString"="Rundll32 IedkCS32.dll,BrandCleanInstallStubs"
"RequiresIESysFile"="100.0"