local $\="\n";
print('a');
{
   print('b');
   last;
   print('c');
}
print('d');

##</code><code>##

a
b
d

##</code><code>##

local $\="\n";
print('a');
do {
   print('b');
   last;
   print('c');
};
print('d');

##</code><code>##

a
b
Can't "last" outside a loop block at a.pl line 5.