#! perl -sw
use 5.010;
use strict;

$/ = ''; ## Paragraph mode

while( <DATA> ) {
    m[
        (?= ^ .*? DisplayName    \s+ \S+ \s+ ( [^\n]+ ) \n )
        (?= ^ .*? DisplayVersion \s+ \S+ \s+ ( [^\n]+ ) \n )
    ]xsm and say "Name: $1 Version $2";
}