$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";
}