$ perl -E 'my $x = ""; $x = (42, $x && die "Set: $x")[!!$x]; say $x'
42

$ perl -E 'my $x = "X"; $x = (42, $x && die "Set: $x")[!!$x]; say $x'
Set: X at -e line 1.