#!/usr/bin/perl

#shahid1632.pl
use strict;
use warnings;

# get 2 files from command line or exist
my $xfile = shift || die;
my $yfile = shift || die;

# load patterns from first file into a hash database
my %patterns;
open my $fh, '<', $xfile or die "Could not open $xfile: $!\n";
while(<$fh>){
    chomp;
    my ($key, $val) = split;
    $patterns{$key} = $val;
}
close $fh;

# act upon second file
open $fh, '<', $yfile or die "Could not open $yfile: $!\n";
while(<$fh>){
    # create alphanumeric with hyphens tokens from line
    my @blocks = /([\w-]+)/g;
    # the first token is Name or Uid, check for a possible swap of value
    if($blocks[1] and $blocks[0]=~/^Name|^Uid/){
       s/$blocks[1]/$patterns{$blocks[1]}/ if exists $patterns{$blocks[1]};
    }
    print;
}
close $fh;

cat file.x2
MAS-PRS-Router-Zone_A-Primary A_Primary
CHK_MGMT-PR Madras-MGMT_Primary
B3246F7C-D590-4417-8F9E-11340A8AD510 60146ACB-1B56-47F0-B14E-035EED4D81D6
317BF66F-A2C6-1B45-95DE-8C622D2062F7 27BECF52-869A-4127-9AC4-530EFD70D696

cat file.y2
:compound ()
                :op ()
                : (ReferenceObject
                    :Name (MAS-PRS-Router-Zone_A-Primary)
                    :Table (network_objects)
                    :Uid ("{B3246F7C-D590-4417-8F9E-11340A8AD510}")
                )
                : (ReferenceObject
                    :Name (CHK_MGMT-PR)
                    :Table (network_objects)
                    :Uid ("{317BF66F-A2C6-1B45-95DE-8C622D2062F7}")
                )

perl shahid1632.pl file.x2 file.y2
:compound ()
                :op ()
                : (ReferenceObject
                    :Name (A_Primary)
                    :Table (network_objects)
                    :Uid ("{60146ACB-1B56-47F0-B14E-035EED4D81D6}")
                )
                : (ReferenceObject
                    :Name (Madras-MGMT_Primary)
                    :Table (network_objects)
                    :Uid ("{27BECF52-869A-4127-9AC4-530EFD70D696}")
                )