#!/usr/bin/perl

use v5.24;
use warnings;

for my $label ('inner', 'outer') {
    say "goto $label";
    for ('c' .. 'g') {
        say "loop: $_";
        say "/d/ matched" if /d/;
        {
            goto $label unless //;
            say "// matched";
            inner:
        }
        outer:
    }
    say '';
}
__DATA__
goto inner
loop: c
// matched
loop: d
/d/ matched
// matched
loop: e
loop: f
loop: g

goto outer
loop: c
// matched
loop: d
/d/ matched
// matched
loop: e
loop: f
// matched
loop: g
// matched