my $p;
$p = $q if condition();