$a = $b = 0;

eval { $a = 3; };
$b = eval { 3; };

print "$a, $b\n";    # 3, 3