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