#!/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);