I don't think this is a problem with Perl's operators. The Perl interpreter (5.8 at least) gets this syntax right:

$a = 'mmm';
$b = 'yyy';
if ( ( $a =~  /m/i ) && ( $b =~  /y/i ) ) { print "Hello\n"; }
if ( ( $a =~ m/m/i ) && ( $b =~ m/y/i ) ) { print "Hello\n"; }

__OUTPUT__
$ perl test.pl
Hello
Hello

$ perl -MO=Deparse test.pl
$a = 'mmm';
$b = 'yyy';
if ($a =~ /m/i and $b =~ /y/i) {
    print "Hello\n";
}
if ($a =~ /m/i and $b =~ /y/i) {
    print "Hello\n";
}
[download]

I wonder what P::RD could be doing with the code you give it to cause this. I'm not very familiar with the module, but that's just odd. Bug?

FWIW, the regexes match correctly when I wrap them both in eval q{}'s. So eval doesn't seem to be a problem either.

blokhead