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

A more concise syntax:

for (;;) {
  charlie;
  last if bob;
  david;
  last if !alice;
}
[download]

It's my understanding that for (;;) { ... } can be replaced simply with loop { ... } in Perl6.