Pattern Matching issue

[rookie_monk]

Good Afternoon, I cannot seem to figure out why the 3rd pattern match(if statement) does not get triggered. Below is the code and also the results. Thanks in advance for your help.

use strict;


my $SetName = "MR_\\1\\2\\3";
my $orig1 = "P";
my $orig2 = "A";
my $orig3 = "T";
my $new1 = "\\\\3";
my $new2 = "\\\\2";
my $new3 = "\\\\1";

if ($new1 =~ /\\3/) {
    if ($SetName =~ /\\3/) {
        print "hi!! 3\n";
        $SetName =~ s/$new3/$orig1/;
    }
    if ($SetName =~ /\\2/) {
        print "hi!! 2\n";
        $SetName =~ s/$new2/$orig2/;
    }
    if ($SetName =~ /\\1/) {
        print "hi!! 1\n";
        $SetName =~ s/$new1/$orig3/;
    }
    print "SetName = $SetName\n";
} 

The output is:
Hi!! 3
Hi!! 2
SetName = MR_PA\3

Not sure why it didnt print "Hi!! 1". Thanks again.

[Anonymous Monk]

Because

if ($SetName =~ /\\1/)

cannot match

SetName = MR_PA\3

1 and 3 are different

[rookie_monk]

That is odd. The 1st match shouldve replaced "\1". Hmmm

[kennethk]

You have typos. Note how you transit your 'new' variables 3,2,1 not 1,2,3, which would yield your desired result. A debugger would have made this clear. Check out Basic debugging checklist.

[changma_ha]

hi rookie Monk. What Anonymous monk said was right. after the first match $SetName will be $SetName= MR_P\\2\\3 and after the second match it will be $SetName= MR_PA\\3 so when the third match comes it cannot match it.... Thats why Hi!!1 does not get executed. hoope this will help.