$ perl -MO=Deparse foo.pl
sub c1 {
    my($a, $b) = @_;
    not $b if $a;
}
sub c2 {
    my($a, $b) = @_;
    not $b if return $a;
}
foo.pl syntax OK