{
    do {
        ...;
        $foo == $bar and warn 'foo bar problem';
    } or do {
        ...;
    } or do {
        last;
    }
    ...; # clean up mess
}