use strict;
use warnings;

my $Server = 'test123';
my $searched = "//$Server/LMachine/SOFTWARE/Microsoft/.NETFramework/policy";

use Win32::TieRegistry( Delimiter=>"#", ArrayValues=>0 );
my $delim = $Registry->Delimiter("/");

my $remoteKey = $Registry->{$searched} or die "Can't read $searched key; \nERROR: $^E\n";
foreach my $subKey (  $remoteKey->SubKeyNames ) {
     print "Installed is $subKey\n" if $subKey =~ /v\d+/; 
}