Select Code to Download

print "${X()} ${X()}\n";

print "${X()}${X()}\n";

$ perl -E'my $x=5; sub X { \(++$x) }  say ${ X() } +     ${ X() };'
14

$ perl -E'my $x=5; sub X { \(++$x) }  say ${ X() } + 0 + ${ X() };'
13