use strict;
use warnings;

my $x = '1';
my $z = "undetermined\n";

($x) ? print "true\n" : print "false\n";
($x) ? $z  = "true\n" : $z  = "false\n"; print $z;

__END__
Output (on both perl-5.38.0 and perl-5.40.0):
true
false