ok, so how about this:

if ($condition) {
    &doAction;
} else {
    print "doAction not executed due to a failure of $condition\n";
}
[download]

if you have a whole bunch of $conditions then you could easily pregenerate the codeblock. cool, dynamic code... !