use Experimental::Exception;
do {
.....
} while (
         try {
           $thingy->doSomething();
         } catch SomeException => sub
             { 
              return undef;
             }; 
         )