#!/usr/bin/perl

use v5.24;
use warnings;

my ($first, $last);
while (<DATA>) {
    chomp;
    $first ||= /d/;
    undef($first) if $last ||= /h/;
    if ($first || $last) {
        undef $last;
        #goto ewhile unless //;
        goto eif unless //;
        say;
        eif:
    }
    ewhile:
}
__DATA__
c
d
e
f
g
h
i

##</code><code>##

goto eif:
d
h

##</code><code>##

goto ewhile:
d
f
g
h

##</code><code>##

#!/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