do {{
    next if $x == $y;
    # do something here
}} until $x++ > $z;

##</code><code>##

LOOP: { 
        do {
            last if $x = $y**2;
            # do something here
        } while $x++ <= $z;
}