>perl -wle"do { print('x'); last } while 1; print('y');"
x
Can't "last" outside a loop block at -e line 1.

>perl -wle"do { print('x'); last } for qw(a b c); print('y');"
x
y