~/perl$ cat x
do {
    charlie;
    last if bob;
    david;
} while (alice);
~/perl$ perl -c x
x syntax OK
~/perl$ perl -v

This is perl, v5.6.1 built for i386-linux

##</code><code>##

LOOP: {
  charlie;
  last LOOP if bob;
  david;
  redo LOOP if alice;
}