>perl -we "sub nxt { next }; for (1..3) { nxt if /2/}"
Exiting subroutine via next at -e line 1.