http://www.perlmonks.org?node_id=130067


in reply to Re (tilly) 4: Fear of Large Languages (was: "Would you use goto")
in thread Would you use 'goto' here?

while my $foo (@bars) {
    if ($foo =~ /baz/i) {
        goto DONE unless $foo eq uc $foo;
    } else {
        goto DONE unless $foo ne uc $foo;
    }

    DONE:
    do_more_stuff($foo);
}

[download]
This doesn't work with next or redo. It works with continue.

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

In Section Seekers of Perl Wisdom