in reply to RegEx Matching, Loop Breaking...

Why do you need to "quotemeta" $xmlline? On the lefthand-side of the match this should not be needed.

Without the files it is difficult to develop more ideas, the logic seems ok. I would add a print statement just before the match to see the contents of $cleanedDomain and $cleanedXML.

I agree with comments above that you should revisit your open/close policy.

Replies are listed 'Best First'.
Re^2: RegEx Matching, Loop Breaking...
by rardoe (Initiate) on May 28, 2013 at 19:45 UTC
    Taking the quotemeta out fixed my issue. Thanks!
[reply]

      The reason taking the quotemeta out fixed the problem is that a quotemeta-ed string that contained  \W characters will, in general (there may be some oddball corner cases), not regex-match with itself after the string has been double-quote-ishly interpolated into a regex. The reason is that after a string is quotemeta-ed, something like  '\-' in the quotemeta-ed string is literally a backslash-hyphen sequence of characters, but this sequence in a regex only matches a hyphen leaving the backslash in the quotemeta-ed string unmatched. 

      >perl -wMstrict -le
"my $s    = 'a-b c*d';
 my $qm_s = quotemeta $s;
 print qq{raw: '$s'  quotemeta-ed: '$qm_s'};
 ;;
 printf qq{%s equal \n}, $qm_s eq  $qm_s  ? '' : 'NOT ';
 printf qq{%s match \n}, $qm_s =~ /$qm_s/ ? '' : 'NO ';
"
raw: 'a-b c*d'  quotemeta-ed: 'a\-b\ c\*d'
 equal
NO  match

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom