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