return from inside sub{}

goto_RETURN.pl

#!/usr/bin/env perl
use strict;
use warnings;

sub foo {
    my $res = '';

    warn "foo(): @_";

    (sub {
        warn "ANON(): @_";
        $res = shift;
        goto RETURN;
    })->(@_);

    warn "this line will be skipped";

    RETURN: $res;
}

warn foo(123);

could be useful from inside try/catch:

try {
 $res = may_fail();
 goto RETURN;
} catch {
 # handle failure...
};