Select Code to Download

my $a = 1;
my $b = 2;
$a && $b = 3;

use strict;
use warnings;
...
my $y = 5;
a($x && $y);
print "$x\n";