Not possible in perl5 AFAIK.

Since parrot is supposed to support continuations something like this might be possible in perl6 I guess.

I know of one language that supports the idiom. Pop-11 has chainfrom, chainto, exitto and exitfrom which cover the full gamut of exit variations. However, apart from using chainto to optimise tail recursion I've never used them in "real" code :-)