my $p = $q if condition();
# becomes
my $p = condition() ? $q : undef;