Select Code to Download

>perl -wle"print('x'),last while 1; print('y');"
x
...
>perl -wle"print('x'),last for qw(a b c); print('y');"
x
y

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