#!/usr/bin/perl -w

use strict;

while (<DATA>) {
   if (/^(Managed Node)(.*)/) {
      my @value = split(/\=/, $2);
      print de_space($value[0]),"\n";
      print de_space($value[1]),"\n";
   }elsif (/^(.*\=.*)/) {
      my @data = split(/\=/, $1);
      print de_space($data[0])." \= ".de_space($data[1]),"\n";
   }
}

sub de_space {
   my $object = shift;
   $object =~ s/ *$//;
   $object =~ s/^ *//;
   return $object;
}

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