use warnings;
use strict;

my $yodda = 0;
while ($yodda < 4) {
    redo if ++$yodda & 1;
    
    print "Even is ";
} continue {
    print "$yodda\n";
}

##</code><code>##

Even is 2
Even is 4