>perl -MO=Deparse -e "$File::Find::prune= not $recurse and ($File::Find::dir ne $File::Find::topdir);"
$File::Find::dir ne $File::Find::topdir if $File::Find::prune = !$recurse;

##</code><code>##

>perl -MO=Deparse -e "$File::Find::prune= not $recurse && ($File::Find::dir ne $File::Find::topdir);"
$File::Find::prune = !($recurse && $File::Find::dir ne $File::Find::topdir);

##</code><code>##

    open my $fh, $file
        or die "Couldn't open '$file': $!";

##</code><code>##

    open (my $fh, $file)
        || die "Couldn't open '$file': $!";

##</code><code>##

>perl -MO=Deparse -e "open my $fh, $filename || die qq(couldn't open $filename: $!)"
open my $fh, $filename || die("couldn't open ${filename}: $!");
-e syntax OK

>perl -MO=Deparse -e "open my $fh, $filename or die qq(couldn't open $filename: $!)"
die "couldn't open ${filename}: $!" unless open my $fh, $filename;
-e syntax OK