C:\Perl\scripts>perl -MO=Deparse,-x9 mytest.pl
$x1 and do {
    $x2 and do {
        print "here\n"
    }
};
$x1 and $x2 and do {
    print "here\n"
};
mytest.pl syntax OK