(not $condition or $a =~ s/foo/bar/ or 1) and print $a;