#!/usr/bin/perl
# vim: set ts=4 sw=4 et sta:
use strict;
use warnings;

my ( $cond, $aa );

for $cond ( 0 .. 1  ) {

    $aa = 'fix';
    ( not $cond or $aa =~ s/foo/bar/ ) and print "$cond: $aa\n";

}