C:\Users\HomeAdmin>perl -MO=Deparse -Mstrict -wle"my $var = 1; $var || 1;"
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict 'refs';
my $var = 1;
'???' unless $var;
-e syntax OK

##</code><code>##

1 if $var;