#! /usr/bin/perl
use strict;
use Data::Dumper;

my %hash;
for (<DATA>) { $hash{$1} = $2 if /Managed Code\s+(\S+)\s*=\s*(\S+)/; }
print Dumper \%hash;

__DATA__
Managed Node XYZ123 = MN
Type = Combo
Rim = Planner