E:\Projects>perl -MO=Deparse -we "my $s; $_ && do { $s = $_ }"
my $s;
if ($_) {
    $s = $_;
}
-e syntax OK