Update: Duplicative, nothing new here, move along.

Add a block or single-pass loop around your do while.

my $i = 0;

{
    do {
        print $i++, $/;
        last if $i == 2;
    } while ( $i < 4);
}
[download]

Be well,
rir