Help for this page
>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