Select Code to Download

# 5.14.0 or later
$ perl -E 'my ($x, $y) = (0, "fallback"); $x = length $x ? $x : $y; sa
+y $x'
...

$ perl -E 'my ($x, $y) = ("", "fallback"); $x //= $y; say "<$x>"'
<>