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";