perl -wle '$x = 1; {$x = 2; last; $x = 3} print $x'
2