all the way
Do various stuff in the block
Skipped the early exit
Skipped an error detection
Continue here regardless

early exit
Do various stuff in the block
Continue here regardless

found error
Do various stuff in the block
Skipped the early exit
Errors handled here
Continue here regardless
[download]

use warnings;
use strict;

$_ = ('all the way', 'early exit', 'found error')[rand (3)];
print "$_\n";

    {# Block to allow common error handling in continue
        print "Do various stuff in the block\n";
        
        last if /early exit/;
        print "Skipped the early exit\n";
        
        next if /found error/;
        print "Skipped an error detection\n";
        
        last; # Falls through to error handling if omitted
    } continue {
        print "Errors handled here\n";
    }
    
print "Continue here regardless\n";
[download]